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

Demonstrates raising a sunken vessel by reducing the load in a given tank with another BUBBLE-type tank responding to the decreasing pressure as the vessel rises.
    `Demonstrates raising a sunken vessel by reducing the load in
    `a given tank with another BUBBLE-type tank responding to
    `the decreasing pressure as the vessel rises.
    
    proj bubble2
    
    macro st
     solve trim
     `status
     if {first}<>0 then display (*) status profile@0 /sync else display status /update
     set first=0
     load (hold1.c, focsle.c) `Shows loads of these tanks on the screen.
     wait
    /
    
    read fv
    
    `Establish a light ship condition:
    vcg 6
    draft 6
    solve weight, lcg
    
    `Set up sunken condition:
    heel 180
    trim 10
    depth -2
    ground "Bottom point 1" * -48, 0, 23
    ground "Bottom point 2" *  36, 0, 15
    type (*) flood
    tank focsle.c
    type bubble
    ref -48, 0, 23
    load .5 /press: 1.3
    tank hold1.c
    type intact
    load 1
    
    macro ld
    load %1
    .st
    /
    
    variable first=1
    
    .ld 0.9
    .ld 0.5
    .ld 0.1
    
    

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