aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/combfunc.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/combfunc.spad.pamphlet')
-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)