aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
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/algebra
parentef059f3f675f384c68c15076dbcf220be1e01eee (diff)
downloadopen-axiom-65dfcc0a0e53c2fa74f62fe2eb69d7e37149475f.tar.gz
(iBesselKGrad)[FunctionalSpecialFunction]: Fix thinko
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/combfunc.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
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)