1#!perl -w -I.. 2#______________________________________________________________________ 3# Symbolic algebra. 4# PhilipRBrenan@yahoo.com, 2004, Perl License. 5#______________________________________________________________________ 6 7use Math::Algebra::Symbols; 8use Test::More tests => 9; 9 10($x, $zero, $one, $i, $pi) = symbols(qw(x 0 1 i pi)); 11 12ok( exp($zero) == $one); 13ok( exp($i*$pi/2) == $i); 14ok( exp($i*$pi) == -$one); 15ok( exp(3*$i*$pi/2) == -$i); 16ok( exp(4*$i*$pi/2) == $one); 17ok( exp($i*$pi) == -1); 18ok( $i*exp(3*$i*$pi/2) == 1); 19 20ok( exp($x)*exp($i*$x)*exp($x)*exp(-$i*$x)-exp(2*$x) == 0); 21 22ok( 1+$one+'1/2'*$one**2+'1/6'*$one**3+'1/24'*$one**4+'1/120'*$one**5+ 23 '1/720'*$one**6+'1/5040'*$one**7+'1/40320'*$one**8 24 == '109601/40320'); 25 26