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

 Checking Bottom Immersion for EM-385 ```proj chk_bot read box dr 3 vcg 5 solve we lcg tcg `--- User to enter critical points below: --- `crtpt(1) "freeboard amidships" 25 10 10 /noflood crtpt(2) "bottom fwd port" 0 10p 0 /noflood crtpt(3) "bottom aft port" 50 10p 0 /noflood crtpt(4) "bottom fwd stbd" 0 10s 0 /noflood crtpt(5) "bottom aft stbd" 50 10s 0 /noflood variable BotCrN=4,BotCr1=2 `the bottom is defined by 4 consecutive critical points starting with point 2. `--- No need to change the macros that follow. --- variable (st) Pass=TRUE variable PassN=0 macro ChkPt `%1:CrtPt Number; %2:<|>; %3:limit; %4:variable to return margin; %5: variable to track number of passing points variable ptHt=0 height(%1) ptHt /access if {ptHt} %2 %3 then set %5={%5} plus 1 else set %4=FAIL \Point %1 is {ptHt} above the waterline.\ / macro ChkBot set Pass=PASS, PassN=0 \Verifying Bottom Immersion\ \--------------------------------------------\ .ChkPt({BotCrN},1) {BotCr1} < 0 Pass PassN \{PassN} of {BotCrN} bottom points are immersed.\ \--------------------------------------------\ \Check Bottom Immersion { Pass}\ \--------------------------------------------\ / \Crane Load 400t as slew angle of 45 over the stbd aft quarter.\ boom "crane load" 400 25,0,20, 20,45,0 variable l,t,v add "crane load" * l t v/access crtpt "crane load" {l},{t},{v} /noflood solve status di(*) status profile:outboard, plan:be, body @50@25@0 /sync .chkbot `show a passing condition add "crane load" *-200 `just change the hook load value. solve status .chkbot ``` Add a free link to your site