GHS Port Reference Center Information for maritime designers, engineers and builders Maintained by Creative Systems, Inc., Creators of GHS Click here for information about GHS and other fine marine software.
Go to Main page

 Finding the Minimum and Maximum Bending Moments for each LS Run. ```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} \ ``` Add a free link to your site