From: Dieter K. <cra...@us...> - 2009-08-19 22:30:53
|
Update of /cvsroot/maxima/maxima/tests In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv3305 Modified Files: rtest16.mac Log Message: Adding examples related to the bug reports: BUG ID: 2835098 - SIGN-PREP strangeness BUG ID: 2840566 - defint fails to determine if one of its limit is real Index: rtest16.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v retrieving revision 1.86 retrieving revision 1.87 diff -u -d -r1.86 -r1.87 --- rtest16.mac 10 Aug 2009 00:14:48 -0000 1.86 +++ rtest16.mac 19 Aug 2009 22:30:33 -0000 1.87 @@ -943,5 +943,28 @@ float(0b0); 0.0; +/* + * BUG ID: 2835098 - SIGN-PREP strangeness + */ + +block ([?limitp : true], sign (foo (x))); +pnz; + +integrate(sqrt(2*m*(E[n]-U(x))),x,-x[0],x[0])=(n-1/2)*%pi*hbar; +sqrt(2)*'integrate(sqrt(m*(E[n]-U(x))),x,-x[0],x[0]) = %pi*hbar*(n-1/2); + +integrate(f(x),x,x[0],x[1]); +'integrate(f(x),x,x[0],x[1]); + +/* + * BUG ID: 2840566 - defint fails to determine if one of its limit is real + */ + +(assume(b>0,c>0),done); +done; + +integrate(x,x,0,sqrt(b^2+(b-c)^2)); +(c^2-2*b*c+2*b^2)/2; + end; end$ |