betai.c

Numerical Recipes 是国际公认的高水平的、关于数值计算的书

#include <math.h>

float betai(a,b,x)
float a,b,x;
{
	float bt;
	float gammln(),betacf();
	void nrerror();

	if (x < 0.0 || x > 1.0) nrerror("Bad x in routine BETAI");
	if (x == 0.0 || x == 1.0) bt=0.0;
	else
		bt=exp(gammln(a+b)-gammln(a)-gammln(b)+a*log(x)+b*log(1.0-x));
	if (x < (a+1.0)/(a+b+2.0))
		return bt*betacf(a,b,x)/a;
	else
		return 1.0-bt*betacf(b,a,1.0-x)/b;
}