1% Tests of the partial fraction module.
2
3% Author: Anthony C. Hearn
4
5off exp;
6
7pf(2/((x+1)^2*(x+2)),x);
8
9pf(x/((x+1)^2*(x+2)^2*(x+3)),x);
10
11pf(x/(x^2-2x-3),x);
12
13pf((10x^2-11x-6)/(x^3-x^2-2x),x);
14
15pf(x^2/((x+1)*(x^2+1)),x);
16
17pf((2x^6-11x^5+37x^4-94x^3+212x^2-471x+661)
18 /(x^7-5x^6+5x^5-25x^4+115x^3-63x^2+135x-675),x);
19
20% A harder example.
21
22pf(((2*w**2+2*h**2*l**2*t**2+2*h**2*l**2*qst**2)*z**2-8*h**2*l**2*qst
23     *t*z+2*w**2+2*h**2*l**2*t**2+2*h**2*l**2*qst**2)/((w**2+h**4*l**2)
24     *((w**2+l**2*t**4+2*l**2*qst**2*t**2+l**2*qst**4)*z**4+(-8*l**2
25     *qst*t**3-8*l**2*qst**3*t)*z**3+(2*w**2+2*l**2*t**4+20*l**2*
26     qst**2*t**2+2*l**2*qst**4)*z**2+(-8*l**2*qst*t**3-8*l**2*qst**3
27     *t)*z+w**2+l**2*t**4+2*l**2*qst**2*t**2+l**2*qst**4))
28   -2*h**2/((w**2+h**4*l**2)*((t**2+qst**2+h**2)*z**2-4*qst*t*z+t**2
29      +qst**2+h**2)),z);
30
31% example requiring simplification of 2nd parameter
32
33pf(x/(x^2-1),mainvar(x/(x^2-1)));
34
35end;
36
37