#!/usr/local/bin/perl

require "StrikeProbTest.pl";
$|=1;

$s1 = &StrikeProb'SPROB(60,60,12);
$s2 = &StrikeProb'SPROB(100,60,12);
$s3 = &StrikeProb'SPROB(60,100,12);
$s4 = &StrikeProb'SPROB(60,1000,12);
$s5 = &StrikeProb'SPROB(1,1000,1);

print "$s1\n";
print "$s2\n";
print "$s3\n";
print "$s4\n";
print "$s5\n";

#$a1 = &StrikeProb'AVGSPROB2(1,1);
#$a2 = &StrikeProb'AVGSPROB2(2,1);
#$a3 = &StrikeProb'AVGSPROB2(.5,1);
#$a4 = &StrikeProb'AVGSPROB2(0,1);
#$a5 = &StrikeProb'AVGSPROB2(0.01,1);

#print "\n$a1\n";
#print "$a2\n";
#print "$a3\n";
#print "$a4\n";
#print "$a5\n";

$a1 = &StrikeProb'AVGSPROB(1,1);
$a2 = &StrikeProb'AVGSPROB(2,1);
$a3 = &StrikeProb'AVGSPROB(.5,1);
$a4 = &StrikeProb'AVGSPROB(0,1);
$a5 = &StrikeProb'AVGSPROB(0.01,1);

print "\n$a1\n";
print "$a2\n";
print "$a3\n";
print "$a4\n";
print "$a5\n";

#$s1 = &StrikeProb'GSER(300,83);
#$c1 = 1 - &StrikeProb'GCF(300,83);
#$s2 = &StrikeProb'GSER(1,2);
#$c2 = 1 - &StrikeProb'GCF(1,2);
#$s3 = &StrikeProb'GSER(2,2);
#$c3 = 1 - &StrikeProb'GCF(2,2);

#print "\n$s1 $c1\n";
#print "$s2 $c2\n";
#print "$s3 $c3\n";

exit;