17 lines
273 B
C++
17 lines
273 B
C++
#include "nr.h"
|
|
|
|
DP NR::gammp(const DP a, const DP x)
|
|
{
|
|
DP gamser,gammcf,gln;
|
|
|
|
if (x < 0.0 || a <= 0.0)
|
|
nrerror("Invalid arguments in routine gammp");
|
|
if (x < a+1.0) {
|
|
gser(gamser,a,x,gln);
|
|
return gamser;
|
|
} else {
|
|
gcf(gammcf,a,x,gln);
|
|
return 1.0-gammcf;
|
|
}
|
|
}
|