proj diskhold

read fv.gf

draft 7
vcg 9
solve weight, lcg

variable ncase=0
variable np

macro note
 disk notes.dat /append /holdreport
 ra /area
 \   Case {ncase} starts on page {np}
 \    Least stability margin={limmarg} (Limit {limnum})
 disk off
/

macro case
 set ncase={ncase} plus 1
 status
 set np={pagenum}
 ra /lim
 .note
/

disk notes.dat
disk off

report cases.pf

limit area from equ to abs 30 > 10.30
limit ra at abs 30 or max > 0.66
limit angle from equ to max > 25
limit gm upright > 0.49
angles 0 5 ... 60

load (hold*) = 0
.case

load (hold*) = 0.95
.case

report off

print notes.dat /preview
print cases.pf /preview