`Gererates a report of bending moment as a function of wave phase.
`Demonstrates user plot and tabular data written to a text file.

project BMMTPLOT

read fv
report

`Quick and simple weight curve:
draft 5
vcg 7
solve weight, lcg
variable w={weight}, c={lcg}
weight 1 @ -40, 1 @ 40
weight {w}
lcg {c}

macro wave
 wave %1, 80
 ls /noprint
 me "%1, {bmmtmax}
 \Max bending moment: {bmmtmax:2}\
 \\
 set n={n} plus 1
 variable bm{n}={bmmtmax} `save bending moment
/

macro dowave
 variable n=0
 .wave (36,10) 0
/

me plotstart "Bending Moment vs. Wave Phase"
me plotlabel "Phase angle", "Max moment"
.dowave
me plotend

me (report) {project}.txt
macro wave
 set n={n} plus 1
 me "%1    {bm{{n}}}
/
.dowave
me (report) off

page
\Phase Bending moment
view {project}.txt

print /preview
report off
end