$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                 Sample Problem Showing Ballasting and
$                 Cargo Stability and RAO Calculations
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      set basic parameters
$
&dimen -DIMEN FEET KIPS
&device -oecho no  -g_default file  
&TITLE Step 5 - Cargo Stability and RAO Calculations
$
$*********************************************      READ MODEL
$
INMODEL
$
$*********************************************     set transit condition
$
&INSTATE -CONDITION cbrg180 7 0 0
$
$*********************************************      plot of model
$
&picture iso
&picture starb
&picture top
$
$*********************************************      compute weight for cond.
$
&compartment -percent cbrg180 @0 \
                  4p 100 1.0255 4s 100 1.0255 \
                  3p 100 1.0255 3s 100 1.0255 \
                  1p 100 1.0255 1s 100 1.0255
&status compartm
&equi
&STATUS B_W
$
$*********************************************      enter hydrostatic menu
$
HSTATICS
$
$*********************************************      stability trans.
$
   RARM 3.5 20 -WIND 100
      REPORT
      plot 2 5 7 -rax 9 -no_edit
   END
end
$
$*********************************************      enter hydrodynamics menu
$
HYDRODYNAMICS
$
$*********************************************      stability trans.
$
   g_pressure cbrg180 -heading 90 135 180
end_hydrodynamics
$
$*********************************************      frequency response
$
freq_response
$
$*********************************************      response
$
   rao
$
$*********************************************      std post processing
$
   fr_point &body(cg cbrg180)
      report
   end
end_freq_response
$
$*********************************************      all done
$
&FINISH