`Demonstrates the STABILITY /GMT command.

proj substab

`Create a simple submarine model:
enter pm
create hull
cyl(40) 0 0 20  200 0 20  40
comp baltanks
cyl(40) 40 20 20  160 20 20  30
fit hull
comp tower
ends 90 120
top 70
bot 20
out 10
fit hull
/
macro bt
create baltank%1.s
cylinder %2 20 20  %3 20 20 30
fit baltanks
//
create baltank%1.p
opp baltank%1.s
//
/
.bt 1 40 80
.bt 2 80 120
.bt 3 120 160
write
quit pm

report

`Define a light ship:
depth 30
vcg 20
solve weight, lcg

`Compute GM as a function of ballast tank load:
stability @ load (bal*) 10% 20% ... 70% 72% ... 76% /gmt

report off
print substab.pf /preview