Files
2025-02-Numerical/lib/nr/ansi/recipes/fredin.c
2025-09-12 18:55:25 +09:00

11 lines
230 B
C

float fredin(float x, int n, float a, float b, float t[], float f[],
float w[], float (*g)(float), float (*ak)(float, float))
{
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;
}