Allowable Deck Load Macro

This sample shows how to use our automated deck load macro. Basically, this macro uses the stab_ok macro to find the maximum deck load which can be placed on a vessel for a given condition. To use this macro, you need to have the line

    use_mac stab
in your input file. The remainder of the data file is simply a model of the vessel and a light ship weight.

The interesting part of the command file is:

   HSTATICS
   &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(min .49 %gm170 )
         dload_allow -draft %draft \
                -kg %kg -wt %wt -fsc %fs_cor \
                -wind        00  \
                -cargo 100 00 26.5 30 40 20 \
                -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
      &endloop
   END
which computes the allowable deck load. See the macro documentation for details.