#!/usr/bin/perl

my $sac = 2.0;

print "<table border=1>\n";
print "<tr>\n";
print "<th>Depth</th>\n";
print "<th>Rock Bottom</th>\n";
print "<th>HP80</th>\n";
print "<th>Al72</th>\n";
print "<th>Al80</th>\n";
print "<th>LP72</th>\n";
print "<th>HP100</th>\n";
print "<th>LP80</th>\n";
print "<th>Al100</th>\n";
print "<th>HP119</th>\n";
print "<th>LP95</th>\n";
print "<th>HP130</th>\n";
print "<th>LP104</th>\n";
print "</tr>\n";

foreach $d (1..13) {
        my $depth = $d * 10;
        my $ata = $depth / 33 + 1.0;

        my $probgas = $sac * $ata * 1.0;

        my $asctime = $depth / 30;
        my $ascgas  = $sac * ( $ata + 1 ) / 2 * $asctime;

        my $stopgas = $sac * ( 20 / 33 + 1.0 ) * 3.0;

        my $gas = $probgas + $ascgas + $stopgas;

        my $al72 = $gas / 72 * 3000.0;
        my $al80 = $gas / 77.4 * 3000.0;
        my $al100 = $gas / 100 * 3000.0;
        my $hp100 = $gas / 100 * 3500.0;
        my $lp80 = $gas / 80 * 2640.0;
        my $hp119 = $gas / 119 * 3500.0;
        my $lp95 = $gas / 95 * 2640.0;
        my $hp130 = $gas / 130 * 3500.0;
        my $lp104 = $gas / 104 * 2640.0;
        my $lp72 = $gas / 72 * 2640.0;
        my $hp80 = $gas / 80 * 3500.0;

        $al72 = 500 if $al72 < 500;
        $al80 = 500 if $al80 < 500;
        $al100 = 500 if $al100 < 500;
        $hp100 = 500 if $hp100 < 500;
        $hp119 = 500 if $hp119 < 500;
        $hp130 = 500 if $hp130 < 500;
        $lp80 = 500 if $lp80 < 500;
        $lp95 = 500 if $lp95 < 500;
        $lp104 = 500 if $lp104 < 500;
        $lp72 = 500 if $lp72 < 500;
        $hp80 = 500 if $hp80 < 500;

        print "<tr>";
        print "<td>$depth fsw</td>";
        printf "<td>%5.2f cu ft</td>", $gas;
        printf "<td>%d psi</td>", $hp80;
        printf "<td>%d psi</td>", $al72;
        printf "<td>%d psi</td>", $al80;
        printf "<td>%d psi</td>", $lp72;
        printf "<td>%d psi</td>", $hp100;
        printf "<td>%d psi</td>", $lp80;
        printf "<td>%d psi</td>", $al100;
        printf "<td>%d psi</td>", $hp119;
        printf "<td>%d psi</td>", $lp95;
        printf "<td>%d psi</td>", $hp130;
        printf "<td>%d psi</td>", $lp104;
        print "</tr>\n";
}

print "</table>\n";