{{ message }}

Instantly share code, notes, and snippets.

# UnixSage/rock-bottom-calc.pl

Last active Mar 17, 2018
Rock Bottom Table Generator
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
 #!/usr/bin/perl # mod-ead-calc # By: John C. Place # http://www.unixsage.com print <
• Stressed diver SAC rate 1cf/min
• 1 min to sort out problem at depth
• 30ft/min assent rate from depth to 15fsw
• 3min Saftey stop at 15fsw Example:
If at 132 feet one diver has a problem starts sharing air:
1 Min to sort out the problem
((132/32.8)+1)*1=5cf
3.9 Minutes to assend from 132fsw to 15fsw average depth 73.5fsw
((73.5/32.8)+1)*3.9=12.6cf
3 Min safety stop at 15fsw
((15/32.8)+1)*3=4.3cf

So one diver needs 5+12.6+4.3=21.9cf
So for two divers to do a safe assent from 132fsw would need 44cf
on a 3000psi 80cf tank the turn pressure would be 1600psi
2100psi if you add 500psi on top

EOT ; print <
• Turn Pressure Chart
Pressure (psi)
Volume (ft3)
2640300033003442
fswft38095104108120778010080100120130
\$fsw".sprintf("%0.f",\$rock_bottom)."
\$fsw\$rock_bottom".sprintf("%0.f",(\$psi/\$volume)*\$rock_bottom)."
EOT ; @tanklist=qw( 2640:80 2640:95 2640:104 2640:108 2640:120 3000:77 3300:80 3300:100 3442:80 3442:100 3442:120 3442:130 ); for(\$fsw=30; \$fsw <= 180; \$fsw+=10){ \$rock_bottom=sprintf("%0.f",(((\$fsw/32.8)+1)+(((((\$fsw+15)/2)/32.8)+1)*((\$fsw-15)/30))+(((15/32.8)+1)*3))*2); # print ""; print ""; foreach(@tanklist) { (\$psi,\$volume)=split(/:/); print "" } print "\n"; } print "\n"; print "Created with rock-bottom-calc.pl\n";