SF.net SVN: fricas:[2650] trunk

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

Revision: 2650
http://sourceforge.net/p/fricas/code/2650
Author: whebisch
Date: 2020-03-14 18:41:53 +0000 (Sat, 14 Mar 2020)
Log Message:
-----------
Fix error due to handling of gamma incomplete

Modified Paths:
--------------
trunk/ChangeLog
trunk/src/algebra/rdeefx.spad
trunk/src/input/integ.input

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2020-03-14 18:31:03 UTC (rev 2649)
+++ trunk/ChangeLog 2020-03-14 18:41:53 UTC (rev 2650)
@@ -1,5 +1,10 @@
2020-03-14 Waldek Hebisch <heb...@math.uni.wroc.pl>

+ * src/algebra/rdeefx.spad: Fix error due to
+ handling of gamma incomplete
+
+2020-03-14 Waldek Hebisch <heb...@math.uni.wroc.pl>
+
* src/algebra/formula.spad: Remove
src/algebra/Makefile.in, src/interp/i-output.boot,
src/interp/macros.lisp, src/interp/msgdb.boot,

Modified: trunk/src/algebra/rdeefx.spad
===================================================================
--- trunk/src/algebra/rdeefx.spad 2020-03-14 18:31:03 UTC (rev 2649)
+++ trunk/src/algebra/rdeefx.spad 2020-03-14 18:41:53 UTC (rev 2650)
@@ -1116,8 +1116,7 @@
w2 := lc_nf2/lc_nw1
else
-- FIXME unimplemented
- D(lc_nf2, x) ~= 0 =>
- error "unimplemented"
+ degree(nf2) = 1 and D(lc_nf2, x) ~= 0 =>
return []
w2 := 1/lc_nw1
w2 = 0 => []

Modified: trunk/src/input/integ.input
===================================================================
--- trunk/src/input/integ.input 2020-03-14 18:31:03 UTC (rev 2649)
+++ trunk/src/input/integ.input 2020-03-14 18:41:53 UTC (rev 2650)
@@ -75,6 +75,9 @@
fun3 := D(x*exp(x*log(x)/(log(x)+1))*log(exp(x*log(x)/(log(x)+1))+1), x)
testIntegrate("fun3", "x", "rde")

+testIntegrate("((2*x^2-3*x)*log(x)-a)*exp(-a*log(log(x))+(x^2-3*x))"
+ "/(x*log(x))", "x", "rde")
+
-- Rotstein & Bronstein, third case
-- Integrate[(2581284441*Exp[x] + 1757211400)*Exp[1/(Exp[x]+1) - 10*x]/
-- (39916800*Exp[3*x] + 119750400*Exp[2*x] + 119750400*Exp[x] + 39916800), x]

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