There was an error while loading. Please reload this page.
1 parent e14f031 commit c4ea938Copy full SHA for c4ea938
Numeric/SpecFunctions/Internal.hs
@@ -418,7 +418,7 @@ incompleteGamma a x
418
-- Series for 1-Q(a,x). See [Temme1994] Eq. 5.5
419
taylorSeriesComplQ
420
= sumPowerSeries (-x) (scanSequence (/) 1 (enumSequenceFrom 1) / enumSequenceFrom a)
421
- * x**a / exp(logGammaL a)
+ * x**a / exp(logGamma a)
422
-- Legendre continued fractions
423
contFraction = 1 - ( exp ( log x * a - x - logGamma a )
424
/ evalContFractionB frac
0 commit comments