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

11 lines
101 B
C

void fpoly(x,p,np)
float p[],x;
int np;
{
int j;
p[1]=1.0;
for (j=2;j<=np;j++) p[j]=p[j-1]*x;
}