`Finds required GM according to 46 CFR 170.170.
`Assumes that the wind plane is geometrically modeled.
`Works with GHS and BHS.

project REQGM170

run C170170.LIB /CALL

READ FVW.GF

`Mark the deck edge:
enter pm
modify hull
 margin 0
/
comment Fishing Vessel with deck edge marked, zero margin
write FVWDK0.GF
quit pm

report /box:bw
comments

\\\\\\\\\Required GM According to CFR 170.170\


`Parameters for using c170170.lib:
set bo4=0, aob=0 `Use zero for no added freeboard
set true = 1 `Use 0 to approximate half-freeboard tangent as hf / beam
             `Use 1 to find true half-freeboard angle
set p = 0.005 `wind pressure
set tfb = 12.25 `Half breadth


`ReqGM assumptions for draft series below:
` - zero heel
` - tank empty and set to type intact
` - weight, lcg, and tcg set to achieve equilibrium at the specified draft and trim
` - nominal VCG set equal to LCF draft

subtitle Series of Drafts at zero trim\
page
set di = 1  `draft increment
set d = 6   `initial LCF draft
.REQGM (4) 0  `(number of drafts) trim
.REQTAB       `If you want a summary table at the end

subtitle Series of Drafts at 1 degree aft trim\
page
set d = 6
.REQGM (4) 1
.REQTAB       `If you want a summary table at the end

subtitle Specific load conditions\

macro calc
 page
 solve
 status ghs
 wind (pressure) = {p}
 heel 0
 solve trim
 hmmt wind
 hmmt report
 .170_170
/

weight 117.37, 4.10f, 0, 11.00 `Light ship
.calc

load (wt*, db*) 0.98
load (hold2.c) 0.2
add "Crew and effects" 1.0, 30.0f, 0, 15.0
.calc

set mx_didr= 1 `indicates draft mode
set mx_drn = 3 `number of drafts
set mx_dr1 = 5 `initial draft
set mx_dri = 0.5 ` draft increment
set mx_trn = 1 ` number of trims
set mx_tr1 = 0 ` initial trim
set mx_tri = 1 ` trim increment (degrees)

subtitle Max VCG\
page
.170170m

print preview
report off
end