shootf.c

来自「< C语言数值算法程序大全>>配套程序」· C语言 代码 · 共 35 行

#include "nrutil.h"
#define EPS 1.0e-6

extern int nn2,nvar;
extern float x1,x2,xf;

int kmax,kount;
float *xp,**yp,dxsav;

void shootf(n,v,f)
float f[],v[];
int n;
{
	void derivs(),load1(),load2(),odeint(),rkqs(),score();
	int i,nbad,nok;
	float h1,hmin=0.0,*f1,*f2,*y;

	f1=vector(1,nvar);
	f2=vector(1,nvar);
	y=vector(1,nvar);
	kmax=0;
	h1=(x2-x1)/100.0;
	load1(x1,v,y);
	odeint(y,nvar,x1,xf,EPS,h1,hmin,&nok,&nbad,derivs,rkqs);
	score(xf,y,f1);
	load2(x2,&v[nn2],y);
	odeint(y,nvar,x2,xf,EPS,h1,hmin,&nok,&nbad,derivs,rkqs);
	score(xf,y,f2);
	for (i=1;i<=n;i++) f[i]=f1[i]-f2[i];
	free_vector(y,1,nvar);
	free_vector(f2,1,nvar);
	free_vector(f1,1,nvar);
}
#undef EPS