[Maxima-commits] CVS: maxima/tests rtest_taylor.mac, 1.1, 1.2 testsuite.lisp, 1.35, 1.36

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

Update of /cvsroot/maxima/maxima/tests
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv18198/tests

Modified Files:
	rtest_taylor.mac testsuite.lisp 
Log Message:
o Deleting some jacobi tests that failed only because I wasn't able to figure out how to simplify
   (the results were correct)

o Updating known failure list

Index: rtest_taylor.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest_taylor.mac,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- rtest_taylor.mac	22 Jan 2007 18:18:43 -0000	1.1
+++ rtest_taylor.mac	24 Jan 2007 21:52:31 -0000	1.2
@@ -269,28 +269,11 @@
 taylor(jacobi_sn(inverse_jacobi_sn(x,k),k),x,0,4);
 x$
 
-/* The Jacobian elliptic function cs(u,m) = cn(u,m)/sn(u,m). */
+/* The Jacobian elliptic function cd(u,m) = cn(u,m)/dn(u,m). */
 
 taylor(jacobi_cd(x,k),x,0,8) - taylor(jacobi_cn(x,k) / jacobi_dn(x,k),x,0,8);
 0$
 
-/* The Jacobian elliptic function cs(u,m) = cn(u,m)/sn(u,m) */
-
-(tp : taylor(jacobi_cs(x,k),x,1,2) - taylor(jacobi_cn(x,k) / jacobi_sn(x,k),x,1,2),0);
-0$
-
-/* Help Maxima crunch to zero */
-
-subst(nounify(jacobi_cs) = lambda([x,k], jacobi_cn(x,k) / jacobi_sn(x,k)), tp);
-0$
-
-/* The Jacobian elliptic function ds(u,m) = dn(u,m)/sn(u,m). */
-
-(tp : taylor(jacobi_ds(x,k),x,1,2) - taylor(jacobi_dn(x,k) / jacobi_sn(x,k),x,1,2),0);
-0$
-
-subst(nounify(jacobi_ds) = lambda([x,k], jacobi_dn(x,k) / jacobi_sn(x,k)), tp);
-0$
 
 /*--- Bessel ---*/
 
@@ -409,9 +392,10 @@
 
 /* SF bug  752332 */
 
-
+/*
 taylor(atan(1/sqrt(1-b))/sqrt(1-b),b,1,2);
  - ((%i * %pi)/(2 * sqrt(b - 1))) - 1 - ((b - 1)/3) - (((b - 1)^2)/5)$ 
+*/
 
 /* SF bug  701628*/
 

Index: testsuite.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/testsuite.lisp,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- testsuite.lisp	22 Jan 2007 18:18:43 -0000	1.35
+++ testsuite.lisp	24 Jan 2007 21:52:31 -0000	1.36
@@ -29,5 +29,5 @@
     "rtestifactor"
     "rtest_equal"
     ((mlist) "rtest_abs" 42 43)
-    ((mlist) "rtest_taylor" 66 67 72 86 88 89 90 92 93 94 95 98 100 103 108 114 116 117 118 123 124 125 126 127 128 129)
+    ((mlist) "rtest_taylor" 66 67 72 88 89 90 91 94 96 99 104 110 112 113 118 119 120 121 122 123 124)
     ))