fredin.c

来自「Numerical Recipes Software 提供的算法子程序集」· C语言 代码 · 共 12 行

float fredin(x,n,a,b,t,f,w,g,ak)
float (*ak)(),(*g)(),a,b,f[],t[],w[],x;
int n;
{
	int i;
	float sum=0.0;

	for (i=1;i<=n;i++) sum += (*ak)(x,t[i])*w[i]*f[i];
	return (*g)(x)+sum;
}
/* (C) Copr. 1986-92 Numerical Recipes Software . */