$
$*********************************************      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
