$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                 Sample Problem Showing Ballasting and
$                  Response Amplitude Operators
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      set basic parameters
$
&dimen -DIMEN FEET KIPS
&device -oecho no  -g_default device -auxin cargo.dat
&TITLE Step 6 - Cargo Motion and Force Statistics
$
$*********************************************      READ MODEL
$
INMODEL
&apply -percent -load_group cargo 100
$
$*********************************************     set transit condition
$
&INSTATE -CONDITION cbrg180 7 0 0
$
$*********************************************      plot of model
$
&picture iso
&picture starb
&picture top
$
$*********************************************      compute weight for cond.
$
&comp -percent 1p 100 1.0255 1s 100 1.0255 \
               5p 100 1.0255 5s 100 1.0255 \
               3p  90 1.0255 3s  90 1.0255
&status compartment
&equi
&status B_W
$
$*********************************************      enter hydrostatic menu
$
HSTATICS
$
$*********************************************      stability trans.
$
   RARM 3.5 20 -WIND 100
      REPORT
      plot 2 5 7 -rax 9 -no
   END
end
$
$*********************************************      enter hydrodynamics menu
$
HYDRODYNAMICS
$
$*********************************************      stability trans.
$
   g_pressure cbrg180 -heading 90 135 180
end
$
$*********************************************      frequency response
$
freq_resp
$
$*********************************************      response
$
   rao
$
$*********************************************      std post processing
$
   fr_point &body(cg cbrg180)
      report
   end
   fr_point *car_cg
   end
$
$*********************************************      environment
$
   &env s_90 -sea issc 90 8 4
$
$*********************************************      motion statistics
$
   st_point s_90 -e_period 5 6 7 8 9 10 11 12 13 14 15
      report
   end
$
$*********************************************      force statistics
$
   fr_fcargo 1000 16 16 20
   end
   st_fcargo s_90 -e_period 5 6 7 8 9 10 11 12 13 14 15
      report
   end
end
$
$*********************************************      all done
$
&FINISH