aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2014-08-26 10:14:22 +0000
committerdos-reis <gdr@axiomatics.org>2014-08-26 10:14:22 +0000
commit65dfcc0a0e53c2fa74f62fe2eb69d7e37149475f (patch)
tree43d9e0fd6ccef39606f59bf5a25242447ed6195d /src
parentef059f3f675f384c68c15076dbcf220be1e01eee (diff)
downloadopen-axiom-65dfcc0a0e53c2fa74f62fe2eb69d7e37149475f.tar.gz
(iBesselKGrad)[FunctionalSpecialFunction]: Fix thinko
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)