From 65dfcc0a0e53c2fa74f62fe2eb69d7e37149475f Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 26 Aug 2014 10:14:22 +0000 Subject: (iBesselKGrad)[FunctionalSpecialFunction]: Fix thinko --- src/algebra/combfunc.spad.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/algebra') 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) -- cgit v1.2.3