`Max VCG with the RINA Lifting criterion

proj rinalift

read tanker
report

variables p, d, m
set p = 50
set d = 45
set m={p} times {d}
hmmt {m} /C1

\p = {p}   d = {d}   heeling moment = {m}\

`Tc<15:
limit angle at equ < 15

`GZc GZm>GZc/0.6 -> GZm-GZc>GZc*(1/0.6-1) -> (GZm-GZc)/GZc>0.667
limit rise > 0.667

{*
This is an old, conservative method, from before the Reserve Ratio existed.
`A1>At*0.4 -> A1>(A1+A2)*0.4 -> 0.6*A1>0.4*A2 -> A1>0.667*A2 -> A1+A2>1.667*A2 ->(A1+A2)/A2>1.667
limit ratio from equ to RA0 OR FLD > 1.667
*}

`Reserve Ratio Limit added in Version 16.70A (see COW169)
`A1>0.4*Atot:
LIMIT RESERVE RATIO [FROM EQU0] TO ABS 40 OR FLD > 0.4

maxvcg 5 6 7

draft 6
solve weight, lcg
vcg max
ra /lim

print /preview
report off