use lib 'd:\\Programs\\Perl\\lib';

use Sci::Science;
use JFile;

my $pi = Sci::pi();

print "pi=$pi\n";

print "atan(1.0)=", Sci::atan(1.0), "\n";
print "datan(1.0)=", Sci::datan(1.0), "\n";
print "tan($pi/4)=", Sci::tan($pi/4), "\n";
print "dtan($pi/4)=", Sci::dtan($pi/4), "\n";


if (-w "sin.csv") { print "Can write to [sin.csv]\n"; }



my $filename = "sin.csv";
my $out = new JFile;

if(!$out->Open($filename, "w")) {
	print "Error: Can not write to [$filename]\n";
	exit;
}

$out->print("x,sinh(x),cosh(x),tanh(x),exp(x),*****Measured by Tsukamoto,2007/4/20,\n");
for(my $i = -100 ; $i <= 100 ; $i++) {
	my $x = $pi / 100 * $i;
	my $f = Sci::sinh($x);
	my $g = Sci::cosh($x); 
	my $h = Sci::tanh($x);	
	my $i = exp($x);
	$out->print("$x,$f,$g,$h,$i\n");
}



$out->Close();