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 making a cylindrical tank with convex spherical ends.
    proj cyltank
    
    `Demonstrates making a cylindrical tank with convex spherical ends.
    
    macro cyltank `Params: Name, Long, Trans, CylBot, CylTop, Diam
     .diam %6
     enter pm
     create %1
      cylinder(12) %2, %3, %4, %2, %3, %5, {diam}
      comp top
      .sphere %3, %5
      bottom %5
      vector %2, 0, 0
      comp bottom
      .sphere %3, %4
      top %4
      vector %2, 0, 0
     //
     write {project}.gf
     quit `pm
    /
    
    macro sphere
     inboard -99
     cylinder 0, %1, %2, {r}, %1, %2
     diam .1 @ -{r}
     diam {d1}
     diam {d2}
     diam {d3}
     diam {d4}
     diam {d5}
     diam {d6}
     diam {d7}
     diam {d8}
     diam {d9}
     diam .1 @ {r}
    /
    
    macro diam
     variables diam,r,r2,x,x2,t
     variables (string) d1,d2,d3,d4,d5,d6,d7,d8,d9
     set diam = %1  `Diameter of the tank
     macro d
      set x = %%92 times {r}
      set x2 = {x} times {x}
      set t = {r2} minus {x2}
      set t = sqrt {t}
      set t = {t} plus {t}
      set d%%91 = "{t} @ {x}"
     //
     set r = {diam} DIV 2
     set r2 = {r} times {r}
     .d 1 -0.90
     .d 2 -0.75
     .d 3 -0.50
     .d 4 -0.25
     .d 5  0.00
     .d 6  0.25
     .d 7  0.50
     .d 8  0.75
     .d 9  0.90
    /
    
    clear
    enter pm
    
    `Make a hull -- any hull will do.
    create hull
     ends 0 100
     top 10
     bot 0
     out 10
    /
    write {project}.gf
    quit `pm
    
    `         %1        %2      %2         %4            %5        %6
    `------- Name ---- Long -- Trans -- Vert@CylBot & CylTop -- Diameter
    .cyltank tank1.s,  50.0,    5.5,       3.50,        6.50,      3.0
    .cyltank tank2.p,  60.0,    5.5,       3.50,        6.50,      4.0
    
    display
    
    load (*) 1.0
    status tank
    
    

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