READ TANKER.GF

WE 4314.87, -48.251,0,5.5
SO
LOAD (WBFPK.C, WBDB*, FO*, LO*, DO*, fw*) .95
SO

variable x=0,x2=-94.898
variable (mmt) bmtmax=0, bmtmin=0


macro FRAME      `MACRO TO CREATE FRAME FILE
if {x2} = 2.898 then exit
set x = {x} PLUS 1       `FOR FRAME NUMBER
set x2 = {x2} PLUS 1     `FOR LONGITUDINAL LOCATION OF FRAME
message (report) TANKER.FRA /append
me "FRAME{X}, {x2} M
ME (REPORT) OFF
/

.frame(97)  `CREATE FRAME FILE



macro LSDEC     `MACRO TO CREATE LS BENDING MOMENT VARIABLES, SEE HELP LS.
set x = {x} PLUS 1
variable FRAME{x}$BM
/


macro LSOUT     `MACRO TO CHECK CURRENT FRAME'S BENDING MOMENT AGAINST CURRENT MINIMUM / MAXIMUM
set x = {x} PLUS 1
if {FRAME{x}$BM} > {bmtmax} THEN SET BMTMAX = {FRAME{x}$BM}
if {FRAME{x}$BM} < {bmtmin} THEN SET BMTmin = {FRAME{x}$BM}
/

`RUN MACROS
SET X = 0
.LSDEC(97)
LS /NOPRINT /FRAME
SET X = 0
.LSOUT(97)

`REPORT THE RESULTS
units m
\ Maximum Bending Moment is {bmtmax} \
\ Minimum Bending Moment is {bmtmin} \