[Maxima-commits] CVS: maxima/tests rtest_taylor.mac,1.2,1.3

[Barton W. <wil...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory sc8-pr-cvs16:/tmp/cvs-serv29883/tests

Modified Files:
	rtest_taylor.mac 
Log Message:
o make tests less dependent on ratsimp and evaluation
o don't switch to gcd : spmod (it's the new default)
o fix typo in one test

Index: rtest_taylor.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest_taylor.mac,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- rtest_taylor.mac	24 Jan 2007 21:52:31 -0000	1.2
+++ rtest_taylor.mac	21 May 2007 11:20:25 -0000	1.3
@@ -61,13 +61,13 @@
 x + sqrt(y)$
 
 ratdisrep(taylor(x*(x+1) + sqrt(y),x,1,2));
-x*(x+1) + sqrt(y)$
+sqrt(y)+(x-1)^2+3*(x-1)+2$
 
 ratdisrep(taylor(1 + sqrt(6) * x + %pi*x^2,x,-%phi,9));
-1 + sqrt(6) * x + %pi*x^2$
+%pi*(x+%phi)^2+(sqrt(6)-2*%phi*%pi)*(x+%phi)+(%phi+1)*%pi-sqrt(6)*%phi+1$
 
 radcan(taylor((1 + x*y) * (1 - x),[x,y],sqrt(2),3));
-(1 + x*y) * (1 - x)$
+(x-x^2)*y-x+1$
 
 expand(taylor(x*y + x^2 * y,[x,y],5,3));
 x*y + x^2 * y$
@@ -108,14 +108,14 @@
 (tp : taylor((1 - x / sqrt(3))^(1/5),x,0,5),0);
 0$
 
-ratdisrep(tp^5);
-1 - x / sqrt(3)$
+ratdisrep(tp^5 - (1-(sqrt(3)*x)/3));
+0$
 
 (tp : taylor(sqrt(x*(x-1)),x,1,5),0);
 0$
 
-ratdisrep(tp^2);
-x*(x-1)$
+ratdisrep(tp^2 - x * (x-1));
+0$
 
 (tp : taylor(sqrt((1-x)/(1-y)),[x,y],0,5),0);
 0$
@@ -161,7 +161,7 @@
 taylor(csc(x),x,0,5) * taylor(sin(x),x,0,5);
 1$
 
-taylor(csc(x),x,-%pi/4,5) * taylor(sin(x),x,%pi/4,5);
+taylor(csc(x),x,%pi/4,5) * taylor(sin(x),x,%pi/4,5);
 1$
 
 taylor(cot(x),x,0,5) * taylor(tan(x),x,0,5);
@@ -197,14 +197,14 @@
 taylor(coth(x),x,12,5) * taylor(tanh(x),x,12,5);
 1$
 
-taylor(log(x),x,1,3);
-x - 1 - (((x - 1)^2)/2) + (((x - 1)^3)/3)$
+taylor(log(x),x,1,3) - (x-1-(x-1)^2/2+(x-1)^3/3);
+0$
 
 taylor(exp(x),x,0,7);
-sum(x^k / k!,k,0,7)$
+''(sum(x^k / k!,k,0,7))$
 
 taylor(exp(-x),x,0,7);
-sum((-x)^k / k!,k,0,7)$
+''(sum((-x)^k / k!,k,0,7))$
 
 log(taylor(exp(x),x,0,10));
 x$
@@ -246,7 +246,7 @@
 1 - x^2 / 2 + (1 + 4 * k) * x^4 / 24$
 
 taylor(jacobi_dn(x,k),x,0,4);
-1 - k * x^2 / 2 + k *(4 + k) * x^4 / 24$
+1 - (k * x^2 / 2) + (k^2 + 4 * k) * x^4 / 24$
 
 
 /*  G&R  8.154 1,2, 4, and 5 */
@@ -404,7 +404,7 @@
 
 /* SF bug 593449 -- fixed by gcd : spmod */
 
-taylor(log(sqrt(y^e*y+1)+y),e,0,2), gcd : spmod;
+taylor(log(sqrt(y^e*y+1)+y),e,0,2);
 log(sqrt(y+1)+y)+(sqrt(y+1)*log(y)*y*e)/(2*y^2+(2*sqrt(y+1)+2)*y+2*sqrt(y+1))+(((sqrt(y+1)+1)*log(y)^2*y^4+(2*sqrt(y+1)+5)*log(y)^2*y^3+(2*sqrt(y+1)+4)*log(y)^2*y^2+2*sqrt(y+1)*log(y)^2*y)*e^2)/(8*y^5+(24*sqrt(y+1)+40)*y^4+(56*sqrt(y+1)+80)*y^3+(48*sqrt(y+1)+72)*y^2+(24*sqrt(y+1)+24)*y+8*sqrt(y+1))$
 
 /* SF #817516 */