SF.net SVN: fricas:[2636] trunk/src/input/integ.input

[wheb...@users.sourceforge.net]

Revision: 2636
http://sourceforge.net/p/fricas/code/2636
Author: whebisch
Date: 2020-03-06 14:33:51 +0000 (Fri, 06 Mar 2020)
Log Message:
-----------
Add a few tests

Modified Paths:
--------------
trunk/src/input/integ.input

Modified: trunk/src/input/integ.input
===================================================================
--- trunk/src/input/integ.input 2020-03-06 14:17:18 UTC (rev 2635)
+++ trunk/src/input/integ.input 2020-03-06 14:33:51 UTC (rev 2636)
@@ -454,6 +454,8 @@
-- sum
testIntegrate("(log(x)^2-x*log(x)+x+1)*exp((log(x)+1)/log(x))/(x^2*log(x)^3-x^2*log(x))", "x", "Ei")
testIntegrate("cosh(x^(1/2))-acoth(1-x)", "x", "Ei")
+testIntegrate("sinh(tan(x))", "x", "Ei")
+testIntegrate("log(1+x)*exp(-x)", "x", "Ei")

-- special Ei-s
testIntegrate("exp(x^r+1)/x", "x", "Ei")
@@ -544,6 +546,7 @@
ib := integral(x^(a - 1)*(1 - x)^(b - 1), x)
testIntegrate("((a + b)*x - a)/(x^(a + 1)*(1 - x)^(b + 1))*ib", "x", "liou")
testIntegrate("erf(a*x)*erf(b*x)", "x", "liou_erf")
+testIntegrate("log(x)*erf(x)", "x", "liou_Ei")

-- Lambert W
testIntegrate("lambertW(x)", "x", "lambertW")
@@ -704,6 +707,8 @@
testEquals("integrate(cos(a*x)*sin(a*x), x)", "-cos(a*x)^2/(2*a)")
testEquals("integrate(cosh(a*x)*sinh(a*x), x)",
"(sinh(a*x)^2 + cosh(a*x)^2)/(4*a)")
+testEquals("integrate(cos(x)/sqrt(x), x = 0..%plusInfinity, _"noPole_")",
+ "1/sqrt(2/%pi)")

testcase "continuity tests"


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.