$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$                 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 cbrg180 7 0 0
$
$*********************************************      compute weight for cond.
$
&WEIGHT -COMPUTE cbrg180 5 32 85 85
&status B_W
$
$*********************************************      enter hydrostatic menu
$
HSTATICS
&status nwt_down
$
$*********************************************      check one intact
$
   stab_ok 7 2.5 10 -wind 100 -yaw 0 \
           -i_ar_ratio 1.4           \
           -i_gm 0                   \
           -i_dang_t1 0              \
           -d_gm 0
$
$*********************************************      check one damaged
$
   stab_ok 7 2.5 10 -wind 100 -yaw 0 -damage 5p \
           -i_ar_ratio 1.4          \
           -i_gm 0                  \
           -d_gm 0
$
$*********************************************      find allowable kg
$
    kg_allow -draft       5       \
             -wind        100  50 \
             -damage      5p      \
             -yaw         0 45    \
             -i_gm 0              \
             -i_ar_ratio   1.4    \
             -d_gm           0
END
$
$*********************************************      all done
$
&FINISH