GammaSeries.cc File Reference

#include "CommonTools/Statistics/src/GammaSeries.h"
#include <iostream>
#include <cmath>

Go to the source code of this file.

Macros
#define	EPS   3.0e-7
#define	ITMAX   100

Functions
float	GammaSeries (float a, float x)

Macro Definition Documentation

EPS

#define EPS   3.0e-7

Definition at line 6 of file GammaSeries.cc.

Referenced by GammaSeries().

ITMAX

#define ITMAX   100

Definition at line 5 of file GammaSeries.cc.

Referenced by GammaSeries().

Function Documentation

GammaSeries()

float GammaSeries	(	float	a,
		float	x
	)

Returns the series summation of the series representation of the incomplete gamma function P(a,x). source: Numerical Recipes

Definition at line 8 of file GammaSeries.cc.

References a, EcnaPython_AdcPeg12_S1_10_R170298_1_0_150_Dee0::cerr, EPS, ITMAX, and x.

Referenced by IncompleteGammaComplement::ln(), and IncompleteGammaComplement::value().

                                    {
  if (x < 0.0)
    std::cerr << "GammaSeries::negative argument x" << std::endl;

  if (x == 0.)
    return 0.;

  if (a == 0.)  // this happens at the end, but save all the iterations
    return 0.;

  // coefficient c_n of x^n is Gamma(a)/Gamma(a+1+n), which leads to the
  // recurrence relation c_n = c_(n-1) / (a+n-1) with c_0 = 1/a
  double term = 1 / a;
  double sum = term;
  double aplus = a;
  for (int index = 1; index <= ITMAX; index++) {
    ++aplus;
    term *= x / aplus;
    sum += term;
    if (fabs(term) < fabs(sum) * EPS)
      // global coefficient e^-x * x^a / Gamma(a)
      return sum;
  }
  std::cerr << "GammaSeries::a too large, ITMAX too small" << std::endl;
  return 0.;
}