$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                 Sample Problem Showing Ballasting and
$                             Hydrostatic Options
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      set basic parameters
$
&device -g_default file  -oecho no
&dimen -DIMEN FEET KIPS
&TITLE Ballasting and Stability Example
$
$*********************************************      READ MODEL
$
INMODEL
&apply @ 0 h109 100
$
$*********************************************      ENTER HYDROSTATIC MENU
$
HSTATICS
$
$*********************************************      initial ballast
$
   &subtitle North Tow Under Power Lines
   &instate -condition 27.5 0 -1.62
   &APPLY LIFT-OFF
   &compartment -percent  8/W 100 7PW 31.82 7SW 32.38 9// 100 9PW 87.75 \
                    10PW 32.51 10SW 33.06
$
$*********************************************      long. strength
$
   equi
   moment -allow 24.00 1.
      report
      vlist
      plot 1 4 -RAX 5
      2
      Deflection
      -1
      3
      Longitudinal Location (ft)
      5
      Deflection (Inches)
      -1
   end
$
$*********************************************      intact stability
$
   &subtitle Intact Stability North Tow
   rarm 2.5 25 -echo n -wind 100
      report
      plot 2 6 8 -RAX 10
      2
      Wind Heel Arm
      -1
      3
      Roll (Degrees)
      4
      Righting Arm (ft)
      -1
   end
$
$*********************************************      damaged stability
$
   &subtitle DAMAGED STABILITY NORTH TOW ..TANK 3PW FLOODED
   &compartment -flood 3PW
   equi
   &status B_W -HARD
   &subtitle COMPUTE BALLAST TO REGAIN TOW CONFIGURATION IN DAMAGED CONDITION
   &instate -condition 27.5 0 -1.62
   &status b_w -hard
   &status compartm -hard
   &event_store 1
   &select :comp -select 7/W 10/W 8// 12//
   &CMP_BAL H109 :comp -m_pump
   &status b_w -hard
   moment -allow 24.00 1.
      view -record 1 15  -SEL @
      report
   end
$
$*********************************************      restore condition
$
   &subtitle RETURN TO INITIAL CONFIGURATION   NORTH TOW
   &instate -event 1
   &compartment -no_flood 3PW
   equi
   &status B_W
end
$
$*********************************************
$
&status compartm
prcpost
   tank_bal
       report
       end
end_prcpost
$
$*********************************************
$
&FINISH