$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                 Sample Problem Showing - Basic Stablity
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$*********************************************      set basic parameters
$
&dimen -DIMEN FEET KIPS
&TITLE Using Stability Macros
&device -oecho no -g_default file
$
$*********************************************      READ MODEL
$
INMODEL
$
$*********************************************     set transit condition
$
&INSTATE -CONDITION 10 0 0
$
$*********************************************      compute weight for cond.
$
&STATUS B_W
$
$*********************************************      enter hydrostatic menu
$
HSTATICS
$
$*********************************************      worst kg
$
$6 worst free surface corrections: @ 10 feet draft
$     T04S        .03
$     T05P2       .03
$     T05S2       .03
$     T11S2       .03
$     T09C        .30
$     T12         .55
$     --------   ----
$     Total       .97
$
$  and at lightest
$
$     Total    .97 * ( 1118 / 1369 ) = .79
$
&set fs_cor = .79
&set kg =  14.2 13.4  13.0  12.4  11.5  10.8    9.9
&set wt  = 22.3 66.9 133.9 223.2 446.4 714.2 1339
$
$*********************************************      find allowable kg
$
   &loop draft  (11.5 12 ) $ 12.5 13 13.5 14 14.3)
      gm170 sea_puma %draft% 0 0 185 40 16.5
      &set mgm = &number(max .49 %gm170 )
      dload_allow -draft %draft \
             -wind        00  1 \
             -cargo 100 00 26.5 30 40 20 \
             -kg %kg -wt %wt -fsc %fs_cor \
             -yaw            0 \
             -i_ar_ratio   0.0 \
             -i_arm_ratio    0 \
             -i_down_h    1.83 \
             -i_gm        %mgm \
             -i_are@marm    15 \
             -i_are@dfld    15 \
             -i_are@40      15 \
             -i_arm_ar      15 \
             -i_zcross      90 \
             -i_theta1      90 \
             -i_range       40 \
             -i_ang_diff     0 \
             -i_dang_t1      0 \
             -i_dang         0 \
             -i_ang@marm    15 \
             -d_ar_ratio     0 \
             -d_arm_ratio    0 \
             -d_down_h       0 \
             -d_gm           0 \
             -d_are@marm     0 \
             -d_are@dfld     0 \
             -d_are@40       0 \
             -d_arm_ar       0 \
             -d_zcross      90 \
             -d_theta1      90 \
             -d_range        0 \
             -d_ang_diff     0 \
             -d_dang_t1      0 \
             -d_dang         0 \
             -d_ang@marm     0
   &endloop
END
$
$*********************************************      all done
$
&FINISH