$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                 Sample Problem Showing Ballasting and
$                  Response Amplitude Operators
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      set basic parameters
$
&dimen -DIMEN FEET KIPS
&device -oecho no  -g_default device -auxin ../data/pcomp.dat
&TITLE Step 4 - Response Amplitude Operators
$
$*********************************************      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.
$
&status compartm
&select :outer -select @p @s
&cmp_bal cbrg180 :outer
&compartment -percent cbrg180 @ 0 \
                  4p 100 1.0255 4s 100 1.0255 \
                  3p 100 1.0255 3s 100 1.0255 \
                  2p  15 1.0255 2s  15 1.0255 \
                  1p 100 1.0255 1s 100 1.0255
&status compartm
&equi
&STATUS B_W
$
$*********************************************      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