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

Combining Turn Heeling Moments With Others.
    `Demonstrates combining heeling moments
    `Finds max VCG for a series of drafts.
    proj hmmt2
    read fv
    wind 90
    variable radius=500, speed=16
    variable n=0
    lim area from abs 0 to ra0 > 10
    macro hmrep
    if "%1"<>"" then hmmt report
    macro mx `%1 - draft
    heel 0
    trim {tr}
    draft %1
    if "%2"<>"" then vcg %2 else vcg %1
    solve weight, lcg
    hmmt wind
    .hmrep %2
    variable hm1={HMMT}
    hmmt turn {radius}, {speed}
    .hmrep %2
    set hm1={hm1} plus {HMMT}
    hmmt {hm1} /c1 `Heeling moment is now the sum at zero heel times cosine heel
    .hmrep %2
    vcg 0
    solve maxvcg
    if "%2"="" then exit mx %1 {FVCG} `repeat with the preliminary max VCG to refine turn hmmt
    ra /lim
    set n={n} plus 1
    variable dr{n}=%1, vc{n}={VCG}
    variable tr=0 `trim angle
    .mx (6,0.5) 5
    macro summ
    \{ dr%1:3} { vc%1:3}\
    me {dr%1}, {vc%1}
    \ Draft Max VCG\
    me plotstart "Max VCG vs draft at trim={tr:2} degrees"
    me plotlabel "Draft", "Max VCG"
    .summ ({n},1) 1
    me plotend
    print preview
    report off
Add a free link to your site
Copyright © , Creative Systems, Inc.
Privacy policy