`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


subtitle Series of Drafts at zero trim\
page
set di = 1 `draft increment
set d = 6 `initial draft
.REQGM (4) 0 `(number of drafts) trim

subtitle Series of Drafts at 1 degree aft trim\
page
set d = 6
.REQGM (4) 1

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