`MH1.RF illustrates how to get the moment to heel one degree value (MH1) from
`GHS by using the GMT value derived from the macro GETGMT.

READ FV.GF
DRAFT 5
VCG 6
SO WEIGHT,LCG

macro GETGMT
variables BGL,BGT,BGV,C,S,t1,t2,BG,GMT
set BGL = {LCG} minus {LCB}
set BGT = {TCG} minus {TCB}
set BGV = {VCG} minus {VCB}
set C = cos {HEEL}
set S = sin {HEEL}
set t1 = {BGV} times {C}
set t2 = {BGT} times {S}
set BG = {t1} minus {t2}
set C = cos {TRIM}
set S = sin {TRIM}
set t1 = {BG} times {C}
set t2 = {BGL} times {S}
set BG = {t1} minus {t2}
set GMT = {BMT} minus {BG}
/
solve
ghs
.GETGMT
variable MH1
set MH1 = {GMT} times {WEIGHT} times 0.01745
\Moment to heel one degree = {MH1:2}\