From: Dieter K. <cra...@us...> - 2009-12-21 01:26:33
|
Update of /cvsroot/maxima/maxima/share/contrib/integration In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31621/share/contrib/integration Modified Files: rtest_abs_integrate.mac Log Message: Updating 3 examples because of revision 1.18 of risch.lisp. Index: rtest_abs_integrate.mac =================================================================== RCS file: /cvsroot/maxima/maxima/share/contrib/integration/rtest_abs_integrate.mac,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- rtest_abs_integrate.mac 4 Oct 2009 22:38:51 -0000 1.17 +++ rtest_abs_integrate.mac 21 Dec 2009 01:26:19 -0000 1.18 @@ -99,7 +99,9 @@ (abs(x+b)+x+b)/2$ integrate(unit_step(x) + cos(x^2) * x,x); -(sin(x^2)+x*signum(x)+x)/2$ +/*(sin(x^2)+x*signum(x)+x)/2$*/ +/* Changed result because of revision 1.18 of risch.lisp */ +(sin(x^2)+abs(x)+x)/2; integrate(unit_step(x^2-1),x); ((x/2-1/2)*signum(x-1)-1)*signum(x+1)+x/2$ @@ -203,7 +205,9 @@ integrate(cos(x + abs(x)),x); ((signum(x)+1)*sin(2*x)-2*x*signum(x)+2*x)/4$ -signum_to_abs(expand(integrate(diff(abs(x) * cos(x),x),x))); +/* We modify the following example because of revision 1.18 of risch.lisp + * signum_to_abs(expand(integrate(diff(abs(x) * cos(x),x),x))); */ +signum_to_abs(integrate(diff(abs(x) * cos(x),x),x)), gamma_expand:true; cos(x)*abs(x)$ block([extra_integration_methods : ['signum_int]], integrate(abs(x) * exp(-abs(x-9)),x,minf,inf)); @@ -219,8 +223,9 @@ 2$ integrate((5*sin(3*x)*signum(x+3))/x,x); -- (5* %i * (gamma_incomplete(0, 3 * %i * x) - gamma_incomplete(0, - 3 * %i * x) - + gamma_incomplete(0, 9 * %i) - gamma_incomplete(0, - 9 * %i)) * signum(3 *x + 9))/2$ +-5*(%i*gamma_incomplete(0,3*%i*x)-%i*gamma_incomplete(0,-3*%i*x) + +%i*gamma_incomplete(0,9*%i) + -%i*gamma_incomplete(0,-9*%i))*signum(3*x+9)/2; map('unit_step_mult_simp, [5,5.6, -28.6b0,%i, 1 - sqrt(5), 42]); [5,5.6,-2.86b1,%i,1-sqrt(5),42]$ |