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

`How to calculate the Canadian standard for sail training vessels (TP 13313E)
    `How to calculate the Canadian standard for sail training vessels (TP 13313E)
    
    Proj TP13313E
    read fv.gf
    
    dr 6.5
    so we, lcg
    vcg 9.5
    crtpt(2) "crtpt" -22.3, 8, 12.8 /sym
    
    report
    
    limit RA at abs 15 > 1
    
    variable RA15, dwhl, dwhmmt, WL0, WL0MMT
    
    di(*) status profile, plan, body @0@22.3f
    ra /lim `/noprint
    Set RA15={limmarg} div 100 plus 1
    \Righting Arm at 15 degrees = {RA15}
    set dwhl=cos 15 power 1.3
    set dwhl={RA15} div {dwhl}
    \Derived wind heeling lever = dwhl = {dwhl}
    set dwhmmt={dwhl} times {weight}
    \Righting arm curve with derived wind heeling moment, {dwhmmt}
    hmmt {dwhmmt} /c:1.3
    solve
    di(*) status profile, plan, body @0@22.3f
    limit off
    limit angle at equ < 20
    limit angle at fld < 40
    limit angle from equ0 to ra0 > 90
    heel 0
    RA /lim:att
    set WL0={dwhl} times 2
    \Wind heel lever at zero degrees = WL0 = {WL0}
    set WL0MMT={WL0} times {weight}
    \Wind moment at zero degrees = WL0MMT = {WL0MMT}
    hmmt {WL0MMT} /c:1.3
    
    solve
    di(*) status profile, plan, body @0@22.3f
    
    limit off
    limit title 3.1.6 Withstand twice the HMMT at 15 degrees.
    limit angle from equil to abs 60 or fld > 0
    limit ra at fld to abs 60 > 0.05
    heel 0
    ra /lim:att
    print prev
    report off
    
    
    
    
Add a free link to your site
Copyright © , Creative Systems, Inc.
Privacy policy