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

Finds required GM according to 46 CFR 170.170. Assumes that the wind plane is geometrically modeled.
    `Finds required GM according to 46 CFR 170.170.
    `Assumes that the wind plane is geometrically modeled.
    `Works with GHS and BHS.
    
    project REQGM170
    
    run C170170.LIB /CALL
    
    READ FVW.GF
    
    `Mark the deck edge:
    enter pm
    modify hull
     margin 0
    /
    comment Fishing Vessel with deck edge marked, zero margin
    write FVWDK0.GF
    quit pm
    
    report /box:bw
    comments
    
    \\\\\\\\\Required GM According to CFR 170.170\
    
    
    `Parameters for using c170170.lib:
    set bo4=0, aob=0 `Use zero for no added freeboard
    set true = 1 `Use 0 to approximate half-freeboard tangent as hf / beam
                 `Use 1 to find true half-freeboard angle
    set p = 0.005 `wind pressure
    set tfb = 12.25 `Half breadth
    
    
    `ReqGM assumptions for draft series below:
    ` - zero heel
    ` - tank empty and set to type intact
    ` - weight, lcg, and tcg set to achieve equilibrium at the specified draft and trim
    ` - nominal VCG set equal to LCF draft
    
    subtitle Series of Drafts at zero trim\
    page
    set di = 1  `draft increment
    set d = 6   `initial LCF draft
    .REQGM (4) 0  `(number of drafts) trim
    .REQTAB       `If you want a summary table at the end
    
    subtitle Series of Drafts at 1 degree aft trim\
    page
    set d = 6
    .REQGM (4) 1
    .REQTAB       `If you want a summary table at the end
    
    subtitle Specific load conditions\
    
    macro calc
     page
     solve
     status ghs
     wind (pressure) = {p}
     heel 0
     solve trim
     hmmt wind
     hmmt report
     .170_170
    /
    
    weight 117.37, 4.10f, 0, 11.00 `Light ship
    .calc
    
    load (wt*, db*) 0.98
    load (hold2.c) 0.2
    add "Crew and effects" 1.0, 30.0f, 0, 15.0
    .calc
    
    set mx_didr= 1 `indicates draft mode
    set mx_drn = 3 `number of drafts
    set mx_dr1 = 5 `initial draft
    set mx_dri = 0.5 ` draft increment
    set mx_trn = 1 ` number of trims
    set mx_tr1 = 0 ` initial trim
    set mx_tri = 1 ` trim increment (degrees)
    
    subtitle Max VCG\
    page
    .170170m
    
    print preview
    report off
    end
    

Add a free link to your site
Copyright © , Creative Systems, Inc.