From: Raymond T. <rt...@us...> - 2007-02-19 18:15:09
|
Update of /cvsroot/maxima/maxima/tests In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv16860 Modified Files: rtest16.mac Log Message: Add a test for Bug 1661490. Index: rtest16.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- rtest16.mac 16 Jan 2007 20:43:05 -0000 1.19 +++ rtest16.mac 19 Feb 2007 18:15:02 -0000 1.20 @@ -150,5 +150,14 @@ limit(x*(atan(x)-%pi/2),x,inf); -1; +/* + * Bug [ 1661490 ] An integral gives a wrong result. + */ +(assume(a>0,b>0,sqrt(b^2+a^2)-a>0,sqrt(sqrt(b^2+a^2)-a)*(sqrt(b^2+a^2)+a)^(3/2)-b^2>0),0); +0; +radcan(integrate(exp(-(a+%i*b)*x^2),x,minf,inf)/rectform(sqrt(%pi)/sqrt(a+%i*b))); +1; + + end; end$ |