[Maxima-commits] CVS: maxima/tests rtest_integrate.mac,1.4,1.5

[Dieter K. <cra...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25159/tests

Modified Files:
	rtest_integrate.mac 
Log Message:
Updating 3 examples because of new results after revision 1.18 of risch.lisp and revision 1.53 of sin.lisp.


Index: rtest_integrate.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest_integrate.mac,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- rtest_integrate.mac	7 Nov 2009 14:57:07 -0000	1.4
+++ rtest_integrate.mac	20 Dec 2009 23:51:49 -0000	1.5
@@ -749,17 +749,17 @@
 integrate(%e^(a*asec(x)),x);
 'integrate(%e^(a*asec(x)),x);
 
-/* Problem 161: NOUN */
+/* Problem 161: NEW 12/2009 */
 integrate(%e^asinh(x),x);
-'integrate(sqrt(x^2+1),x)+x^2/2;
+log(sqrt(x^2+1)+x)/2+x*sqrt(x^2+1)/2+x^2/2;
 
 /* Problem 162: NOUN */
 integrate(%e^(a*asinh(x)),x);
 'integrate(%e^(a*asinh(x)),x);
 
-/* Problem 163: NOUN */
+/* Problem 163: NEW 12/2009 */
 integrate(%e^acosh(x),x);
-'integrate(%e^acosh(x),x);
+-log(2*sqrt(x^2-1)+2*x)/2+x*sqrt(x^2-1)/2+(x^2/2+x)/2+(x^2/2-x)/2;
 
 /* Problem 164: NOUN */
 integrate(%e^(a*acosh(x)),x);
@@ -789,9 +789,10 @@
 integrate(%e^(a*acsch(x)),x);
 'integrate(%e^(a*acsch(x)),x);
 
-/* Problem 171: NOUN */
+/* Problem 171: NEW 12/2009 */
 integrate(%e^asech(x),x);
-'integrate(%e^asech(x),x);
+-log(2*sqrt(1-x^2)/abs(x)+2/abs(x))+(log(x)+x)/2+(log(x)-x)/2
+                                         +sqrt(1-x^2);
 
 /* Problem 172: NOUN */
 integrate(%e^(a*asech(x)),x);