aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/algebra/combfunc.spad.pamphlet2
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index f3318a06..1a2e80f0 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,4 +1,9 @@
-2014-08-26 Gabriel Dos Reis <gdr@axiomatics.org>
+2014-08-26 Raoul B. <raoulb@bluewin.ch>
+
+ * algebra/combfunc.spad.pamphlet
+ (iBesselKGrad)[FunctionalSpecialFunction]: Fix thinko.
+
+2014-08-26 Gabriel Dos Reis <gdr@integrable-solutions.net>
* Makefile.am (oa_src_include_headers): Remove. These headers are
now linked by configure.
diff --git a/src/algebra/combfunc.spad.pamphlet b/src/algebra/combfunc.spad.pamphlet
index d89697fd..80be59fd 100644
--- a/src/algebra/combfunc.spad.pamphlet
+++ b/src/algebra/combfunc.spad.pamphlet
@@ -768,7 +768,7 @@ FunctionalSpecialFunction(R, F): Exports == Implementation where
ahalf * (besselI (n-1,x) + besselI (n+1,x))
iBesselKGrad(l: List F): F ==
n := first l; x := second l
- ahalf * (besselK (n-1,x) + besselK (n+1,x))
+ ahalf * (-besselK (n-1,x) - besselK (n+1,x))
ipolygammaGrad(l: List F): F ==
n := first l; x := second l
polygamma(n+1, x)