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

 Demonstrates using LS to get S-value tables. ````Demonstrates using LS to get S-value tables. Required version 8.52B or later. project svalues read tanker.gf report svalues \\\\\\\\\\\ \S-Value Tables\ \\For Longitudinal Shear and Bending Calculations\ \\ \ S-Values are shear force and bending moments at specified longitudinal \ positions due to bouyancy only. They are related only to hull form \ and have nothing to do with weight distribution. UNITS MT variables d,dd,d1,dloc,n lbp 94.5 set dloc=47.25f `<--- mean draft location `Create a frame file for this vessel: me (report) tanker.fra me ""FR65" -213 me ""FR55" -180 me ""FR45" -148 me ""FR35" -115 me ""FR25" -82 me (report) off `Declare variables to receive shear force and bending moment values for each frame: macro var variable fr%1\$sf,fr%1\$bm / `iterate macro 6 times, incrementing first parameter by 10 each iteration. .var(5,10) 25 `Macro to set short-named variables to shear force and bending moment values: macro fr variables sf%2,bm%2 set sf%2={fr%1\$sf}, bm%2={fr%1\$bm} / `Page heading macro: macro page page \S-Value Table\ \ \------------------- Trim %1 (M) ---------------------\ \ Mean \ \ Draft Fr 25 Fr 35 Fr 45 Fr 55 Fr 65 \ \ ----------------------------------------------------------\ / `Generates a table row: macro draft draft @ {dloc}={d} solve weight, lcg `status ls /fra /noprint /sternzero /noweight `/sternzero .fr 25 1 .fr 35 2 .fr 45 3 .fr 55 4 .fr 65 5 \ \{ d:2}{ sf1:0} { sf2:0} { sf3:0} { sf4:0} { sf5:0} S.F.\ \ { bm1:0} { bm2:0} { bm3:0} { bm4:0} { bm5:0} B.M.\ / `All drafts in range: macro drafts .draft set d={d} plus {dd} if {d}>{d1} then exit set n={n} plus 1 if {n}>15 then .page %1 | set n=0 exit drafts %1 / `At given trim: macro trim trim %1/ .page %1 set d=2.0 `<--- initial draft set dd=0.25 `<--- draft increment set d1=8.25 `<--- final draft set n=0 .drafts %1 / vcg=5.0 heel=0 fix heel .trim -1 .trim 0 .trim 1 .trim 2 .trim 3 print prev report off ``` Add a free link to your site