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

Example deadweight calculator. NOTE: THERE IS ALSO AN EMBEDDED DEADWEIGHT WIZARD IN GHS.
    `Example deadweight calculator
    
    proj deadwt
    
    `For this example, make a simple barge hull:
    macro makehull
    clear
    enter pm
    create hull
    ends 20 140
    top 20
    bot 0
    out 20
    comp frake
    ends 0 20
    top 20
    bot 0 @ 20, 15 @ 0
    out 20
    spacing 1
    comp arake
    ends 140 150
    top 20
    bot 0 @ 140, 10 @ 150
    out 20
    spacing 1
    //
    di
    write barge.gf
    quit pm
    /
    .makehull
    
    read barge.gf
    cls
    
    variable w,w0,df,da
    variable (string) q
    
    `Define draft mark locations:
    lbp 20 to 140
    
    `Set light ship:
    draft = 5
    vcg = 10
    solve weight, lcg
    set w0 = {weight}
    
    macro calc
    me
    input "Enter mean fwd draft: ", df
    input "Enter mean aft draft: ", da
    
    draft = {df} @ fp, {da} @ ap
    add "Deadwt" delta
    stat weight
    `ghs
    set w = {weight} minus {w0}
    
    \\  Fwd draft { df:2}  Aft draft { da:2}  Deadweight: {w:2} {WUNIT}
    me
    delete "Deadwt"
    input "Want to run another condition? ",q
    set q = cap {q}
    if {q}="Y" then exit calc
    /
    .calc
    
    

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