20 lines
387 B
C++
20 lines
387 B
C++
#include "nr.h"
|
|
|
|
extern int ncom;
|
|
extern DP (*nrfunc)(Vec_I_DP &);
|
|
extern void (*nrdfun)(Vec_I_DP &, Vec_O_DP &);
|
|
extern Vec_DP *pcom_p,*xicom_p;
|
|
|
|
DP NR::df1dim(const DP x)
|
|
{
|
|
int j;
|
|
DP df1=0.0;
|
|
Vec_DP xt(ncom),df(ncom);
|
|
|
|
Vec_DP &pcom=*pcom_p,&xicom=*xicom_p;
|
|
for (j=0;j<ncom;j++) xt[j]=pcom[j]+x*xicom[j];
|
|
nrdfun(xt,df);
|
|
for (j=0;j<ncom;j++) df1 += df[j]*xicom[j];
|
|
return df1;
|
|
}
|