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