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