From: Dan G. <dg...@us...> - 2008-12-24 20:39:46
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv16610/src Modified Files: defint.lisp Log Message: src/defint.lisp: o ratfnt: use intsubs to handle infinities. fixes integrate(1/x^3, x, 1, inf) tests/rtest15.mac: o Add integrate(1/x^3, x, 1, inf) Index: defint.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/defint.lisp,v retrieving revision 1.57 retrieving revision 1.58 diff -u -d -r1.57 -r1.58 --- defint.lisp 26 Jul 2008 12:14:43 -0000 1.57 +++ defint.lisp 24 Dec 2008 20:38:16 -0000 1.58 @@ -646,8 +646,7 @@ (flet ((try-antideriv (e lo hi) (let ((ans (antideriv e))) (when ans - (m- ($substitute hi var ans) - ($substitute lo var ans)))))) + (intsubs ans lo hi))))) (cond ((equal 0. (car e)) ;; No polynomial part |