df1dim.c

< C语言数值算法程序大全>>配套程序

#include "nrutil.h"

extern int ncom;
extern float *pcom,*xicom,(*nrfunc)();
extern void (*nrdfun)();

float df1dim(x)
float x;
{
	int j;
	float df1=0.0;
	float *xt,*df;

	xt=vector(1,ncom);
	df=vector(1,ncom);
	for (j=1;j<=ncom;j++) xt[j]=pcom[j]+x*xicom[j];
	(*nrdfun)(xt,df);
	for (j=1;j<=ncom;j++) df1 += df[j]*xicom[j];
	free_vector(df,1,ncom);
	free_vector(xt,1,ncom);
	return df1;
}