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

Generate a composite max VCG curve including intact and damage. This can be used as a pattern for composite max VCG work.
    `Prototype run file for generating a composite max VCG curve.
    `Includes intact and damage.
    `This can be used as a pattern for composite max VCG work.
    
    project mxproto
    
    read fv
    report
    \\\\\\\\
    \Maximum VCG Curves\
    
    macro mx
    `maxvcg 3, 3.5 ... 7 /lcg:5f,4f,3f %1
    maxvcg displ=47.24,63.04,...,202.32 /lcg:5f,4f,...,3 %1
    /
    
    `Intact criterion:
    macro Ilim
    units mt
    LIMIT OFF
    LIMIT AREA FROM 0 TO 30 > 0.055
    LIMIT AREA FROM 0 TO 40 OR FLD > 0.090
    LIMIT AREA FROM 30 TO 40 OR FLD > 0.030
    LIMIT GM UPRIGHT > 0.150
    units lt
    /
    
    macro int
    subtitle
    \
    \Intact\
    page
    .Ilim
    .mx "/ID:INT"
    /
    
    `Damage criterion:
    macro Dlim
    LIMIT OFF
    LIMIT ANGLE FROM EQUIL TO RA0 > 20
    LIMIT ABSOLUTE ANGLE AT EQUIL < 25
    LIMIT ANGLE FROM EQUIL TO FLD > 0
    /
    
    macro mxdam
    type (*) intact /quiet
    subtitle
    \
    \Damaged: %1\
    type (%1) flood
    .mx "/ID: DAM%2 /composite"
    /
    
    macro mxfinal
    type (*) intact /quiet
    subtitle
    \
    \Composite\
    .mx "/lookup"
    /
    
    macro dam
    .Dlim
    .mxdam "wt1.s,wt2.s" "1,2"
    .mxdam "wt2.s, wt3.s" "2,3"
    /
    
    `Intact:
    .int
    
    `All damage zones:
    .dam
    
    `Composite:
    .mxfinal
    
    write (maxvcg) {project}.sav
    
    `Check conditions:
    
    macro cond
    solve
    vcg max
    solve
    subtitle
    \
    \%1 condition at max VCG\
    page
    maxvcg /print
    status ghs
    heel 0
    ra /fsm /lim:att
    /
    
    macro lookup
    vcg 0
    maxvcg draft=3,4,...,7 /trim:-.25,0,.25 /lookup
    /
    
    `Light ship:
    weight 90.0
    lcg 3.5f
    
    `Load:
    load (wt*) 0.98
    
    .Ilim
    maxvcg valid
    
    .cond "Departure"
    .lookup
    
    
    print preview
    report off
    
Add a free link to your site
Copyright © , Creative Systems, Inc.
Privacy policy