$
$ **********    sample to demonstrate damping with bilge keels
$ **********    bilge keels defined with plate structural elements
$
$ **********    basic setup
$
&title bilge keel damping sample
&set diftyp = strip
&device -oecho n -g_default device
&dimen -dimen feet kips
$
$ **********    read model
$
inmodel
$ 
$
&apply -perc -load_group bk_plt 100
&subtitle bilge keels as #plate elements
$
$ **********    set up model
$ **********    ignore pitch and yaw since we are looking at roll damping only
$
&describe body cbrg180 -ignore ry rz
&instate -condition cbrg180 4.5 0 0 
&weight -compute cbrg180 6.5 54 60 60
&stat -both 
&stat force -both
&stat m_loadg
$
$ **********    set up environment
$
&env STILL -time 100 0.1 find 1000 -t_reinf 18000
$
$ **********    Calculate Hydro's
$
hydro
    &parameter -m_distance 3.0
    g_pressure cbrg180  cbrg180 
    e_total 
    v_matrices
        report
    end
end hydro
&cutype ********** COMPLETED HYDROS 
&status config
$
$ **********    set up perturbation & solve for decay
$
   &cutype ***** Disturb 10 degree roll  
   &instate -move cbrg180 0 0 0 10  
   &status config
   tdom
   &instate -event 20
   &status conf
   &status force
   prcpost
       traj
           store 1 8
           plot  1 8 -no
$
$ **********    look at decay for roll (rx)
$
           decay  1
       end
   end
$
$ ********** finish up
$
&fini