?? xqsimp.c
字號:
/* Driver for routine qsimp */
#include <stdio.h>
#include <math.h>
#include "nr.h"
#define PIO2 1.5707963
/* Test function */
float func(x)
float x;
{
return x*x*(x*x-2.0)*sin(x);
}
/* Integral of test function */
float fint(x)
float x;
{
return 4.0*x*(x*x-7.0)*sin(x)-(pow(x,4.0)-14.0*x*x+28.0)*cos(x);
}
main()
{
float a=0.0,b=PIO2,s;
printf("Integral of func computed with QSIMP\n\n");
printf("Actual value of integral is %12.6f\n",fint(b)-fint(a));
s=qsimp(func,a,b);
printf("Result from routine QSIMP is %11.6f\n",s);
return 0;
}
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -