#!/usr/bin/perl -w

use lib "d:/Programs/Perl/lib";

use strict;
use Sci::Science;

print "x\tP2(x)\tP10(x)\n";
for(my $x = 0.0 ; $x <= 1.0101 ; $x += 0.1) {
	my $y1 = Sci::LegendrePolynomial($x, 2);
	my $y2 = Sci::LegendrePolynomial($x, 10);
	print "$x\t$y1\t$y2\n";
}