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

use Sci::Science;
use JFile;

my $pi = Sci::pi();
my $g = Sci::g();
my $h = Sci::h();

print "pi=$pi\n";
print "g=$g\n";
print "h=$h\n";



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

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

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

$out->print("t,x(t),**********Measured by Tsukamoto, 2007/04/21,\n");
for(my $t = 0 ; $t <=100 ; $t++){
    my $x = $g * $t * $t /2;
    $out->print("$t,$x\n");
}    

$out->Close();