#!/usr/local/bin/perl -w

if (@ARGV<1){
print <<EOT

	Usage: $0 [time of unit #1]

	If ommited, this time is considered 1.0

EOT
      ;
}

print "Learning rate";
for $x (.7,.75,.8,.85,.9){
    $t[1]{$x}=$ARGV[0] || 1;
    $ta[1]{$x}=$t[1]{$x};
    print " "x6,$x;
}
print "\n";

for $n (2..40){
    print "$n)  ";
    for $x (.7,.75,.8,.85,.9){
	$t[$n]{$x}=$t[1]{$x}*$n**(log($x)/log(2));	
	$ta[$n]{$x}=$ta[$n-1]{$x}+$t[$n]{$x};
	printf("%.03f %.03f  ",$t[$n]{$x},$ta[$n]{$x});
    }
    print "\n";
}


__END__