$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$   bilge keels defined with plate structural elements
$               and with #plates
$
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************       basic setup
$
&title Bilge Keel Damping Sample
&device -oecho n -g_default device
&dimen -dimen feet kips
$
$****************************************       read model
$
$
inmodel
$
$****************************************       Set condition
$
&apply -perc -load_group bk_plt 0
&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 environment
$
&env STILL -time 100 0.50 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
$
$****************************************       structural plate
$
&subtitle Bilge Keels As Structural Plate Elements
disturb -plate
medit
    el_delete bkport
    el_delete bkstbd
end
$
$****************************************       now with #plates
$
&subtitle Bilge Keels As #PLATE Attributes
&apply -perc -load_group bk_plt 100
disturb
$
$****************************************       now with no keels
$
&subtitle No Bilge Keels
&apply -perc -load_group bk_plt 000
disturb -none
$
$****************************************       compare
$
&subtitle Decay comparison plate keels and structural keels
prcpost
   trajectory
      add_column plate -column %stp
      add_column none  -column %nill
      vlist
      plot 1 8 25 26 -legend 1 'Structural Plate' \
                     -legend 2 #PLATE             \
                     -legend 3 'No Keels'          \
                     -t_left 'ROLL (deg)'  -no
   end
end
$
$ ********** finish up
$
&fini