`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