[Maxima-commits] CVS: maxima/tests testsuite.lisp, 1.66, 1.67 rtestint.mac, 1.29, 1.30

[Dan G. <dg...@us...>]

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

Modified Files:
	testsuite.lisp rtestint.mac 
Log Message:
src/defint.lisp:
o take-principal: comment call to $logcontract
   fixes [ 657382 ] defint/limit infinite loop
o sin-cos-intsubs1: remove binding of %piargs to nil
   


Index: testsuite.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/testsuite.lisp,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
--- testsuite.lisp	3 Feb 2008 02:01:04 -0000	1.66
+++ testsuite.lisp	17 Feb 2008 20:54:22 -0000	1.67
@@ -15,7 +15,7 @@
 	((mlist) "rtest10" 24 25)
 	"rtest11" "rtest13" "rtest13s"
 	((mlist simp) "rtest14" 57 63)
-	((mlist simp) "rtest15" 148)
+	((mlist simp) "rtest15")
 	"rtest16"
 	"rtestode" "rtestode_zp"
 	"rtest3" "rtest8"

Index: rtestint.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtestint.mac,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- rtestint.mac	19 Dec 2007 11:23:08 -0000	1.29
+++ rtestint.mac	17 Feb 2008 20:54:22 -0000	1.30
@@ -987,3 +987,14 @@
 l^2/(4*%pi);
 (forget(x>0,l>x),0);
 0;
+
+/* principal value integral */
+/* [ 657382 ] defint/limit infinite loop */
+integrate(1/(1-x^5), x, 0, inf);
+0-(2*sqrt(2*sqrt(5)+10)*atan((sqrt(5)-3)*sqrt(2*sqrt(5)+10)/(4*sqrt(5)))
+        +2*sqrt(10-2*sqrt(5))*atan(sqrt(10-2*sqrt(5))*(sqrt(5)+3)/(4*sqrt(5)))
+        -sqrt(2)*sqrt(sqrt(5)+5)*%pi-sqrt(2)*sqrt(5-sqrt(5))*%pi)
+        /20;
+
+integrate(1/x, x, minf, inf);
+0;