xdfridr.c

来自「可以用于科学计算的库」· C语言 代码 · 共 28 行

/* Driver for routine dfridr */

#include <stdio.h>
#include <math.h>
#define NRANSI
#include "nr.h"
#include "nrutil.h"

float func(float x)
{
	return tan(x);
}

int main(void)
{
	float x,h,dx,err;

	printf("input x, h\n");
	while (scanf("%f %f",&x,&h) != EOF) {
		dx=dfridr(func,x,h,&err);
		printf("dfridr=%12.6f %12.6f %12.6f\n",dx,1.0/SQR(cos(x)),err);
	}

	return 0;
}
#undef NRANSI