xscrsho.c

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

/* Driver for routine scrsho */

#include <stdio.h>
#include "nr.h"

static float fx(x)
float x;
{
	return bessj0(x);
}

main()
{
	scrsho(fx);
	return 0;
}