$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                      Sample Problem Showing
$               Wind Areas and Compartment Ballasting
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      set basic parameters
$
&dimen -DIMEN FEET KIPS
&device -oecho no   -auxin ../data/pcomp.dat
&TITLE Step 3 - Wind Areas and Compartment Ballasting
$
$*********************************************      READ MODEL
$
INMODEL
$
$*********************************************     set transit condition
$
&INSTATE -CONDITION 7 0 0
$
$*********************************************      plot of model
$
&picture iso
&picture starboard
&picture top
$
$*********************************************      compute weight for cond.
$
&status compartment
&select :outer -select @p @s
&cmp_bal cbrg180 :outer
&status
&compartment  -percent @ 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
&status compartment
&equi
&status B_W
$
$*********************************************      enter hydrostatic menu
$
HSTATICS
$
$*********************************************      stability trans.
$
   &subtitle default
   RARM 2.5 10 -WIND 100
      REPORT
   END
   &subtitle -cen_lateral 90 0 5
   RARM 2.5 10 -WIND 100 -cen_lat 90 0 5
      REPORT
   END
   &subtitle -u_current
   RARM 2.5 10 -WIND 100 -u_current
      REPORT
   END
   &subtitle -u_current initial
   RARM 2.5 10 -WIND 100 -u_current initial
      REPORT
   END
end
$
$*********************************************      all done
$
&FINISH