《选用复合梯形公式-复合Simpson公式-计算》由会员分享，可在线阅读，更多相关《选用复合梯形公式-复合Simpson公式-计算（6页珍藏版）》请在金锄头文库上搜索。
1、数值分析实验 三班级：10信计2班 学号：59 姓名：王志桃 分数一问题提出：选用复合梯形公式，复合Simpson公式，计算（1） I = （2） I = （3） I = （4） I = 二实验要求：1.编制数值积分算法的程序2.分别用两种算法计算同一个积分，并比较计算结果3.分别取不同步长，试比较计算结果（如n = 10, 20等）4.给定精度要求，试用变步长算法，确定最佳步长三实验流程图：复化梯形公式：输入 端点 a , b 正整数 n直接计算TN=h/2*f(a)+2f(xk)+f(b) k=1,2,n-1输出 定积分近似值TN复化Simpson公式输入 端点 a , b 正整数 n输出
2、 定积分近似值SN（1） 置h=(b-a)/(2n)（2） F0=f(a)+f(b) ， F1=0 ， F2=0（3） 对j=1,2,2n-1循环执行步4到步5（4） 置x=a+jh（5） 如果j是偶数，则F2=F2+f(x)，否则F1=F1+f(x)（6） 置SN=h(F0+4F1+2F2)/3（7） 输出SN,停机四源程序：#include#includeusing namespace std;#define n 20/此为步长double f1(double x)double y;y=sqrt(4-sin(x)*sin(x);return y;double f2(double x)if(
3、x=0)return 1;double y;y=sin(x)/x;return y;double f3(double x)double y;y=exp(x)/(4+x*x);return y;double f4(double x) double y;y=log(1+x)/(1+x*x);return y;int main()int j;double e=0.000001,h,F0,F1,F2,a,b,x,S;cout利用复化Simpson公式求积分endl;/1a=0;b=0.25*3.141592;h=(b-a)/(2*n);F0=f1(a)+f1(b);F1=F2=0;for(j=1;j2
4、*n;j+)x=a+j*h;if(j%2=0)F2=F2+f1(x);elseF1=F1+f1(x);S=(F0+F1*4+F2*2)*h)/3;cout第一个积分公式:端点a为a、b为b,n为nendl结果为Sendl;/2a=0;b=1;h=(b-a)/(2*n);F0=f2(a)+f2(b);F1=F2=0;for(j=1;j2*n;j+)x=a+j*h;if(j%2=0)F2=F2+f2(x);elseF1=F1+f2(x);S=(F0+F1*4+F2*2)*h/3;cout第二个积分公式:端点a为a、b为b,n为nendl结果为Sendl;/3a=0;b=1;h=(b-a)/(2*n
5、);F0=f3(a)+f3(b);F1=F2=0;for(j=1;j2*n;j+)x=a+j*h;if(j%2=0)F2=F2+f3(x);elseF1=F1+f3(x);S=(F0+F1*4+F2*2)*h/3;cout第三个积分公式:端点a为a、b为b,n为nendl结果为Sendl;/4a=0;b=1;h=(b-a)/(2*n);F0=f4(a)+f4(b);F1=F2=0;for(j=1;j2*n;j+)x=a+j*h;if(j%2=0)F2=F2+f4(x);elseF1=F1+f4(x);S=(F0+F1*4+F2*2)*h/3;cout第四个积分公式:端点a为a、b为b,n为ne
6、ndl结果为Sendlendl;cout利用复化梯形公式求积分endl;/1a=0;b=0.25*3.141592;h=(b-a)/n;F0=f1(a)+f1(b);F1=0;for(j=1;jn;j+)x=a+j*h;F1=F1+f1(x);S=(F0+F1*2)*h)/2;cout第一个积分公式:端点a为a、b为b,n为nendl结果为Sendl;/2a=0;b=1;h=(b-a)/n;F0=f2(a)+f2(b);F1=0;for(j=1;jn;j+)x=a+j*h;F1=F1+f2(x);S=(F0+F1*2)*h)/2;cout第二个积分公式:端点a为a、b为b,n为nendl结果为
7、Sendl;/3a=0;b=1;h=(b-a)/n;F0=f3(a)+f3(b);F1=0;for(j=1;jn;j+)x=a+j*h;F1=F1+f3(x);S=(F0+F1*2)*h)/2;cout第三个积分公式:端点a为a、b为b,n为nendl结果为Sendl;/4a=0;b=1;h=(b-a)/n;F0=f4(a)+f4(b);F1=0;for(j=1;jn;j+)x=a+j*h;F1=F1+f4(x);S=(F0+F1*2)*h)/2;cout第四个积分公式:端点a为a、b为b,n为nendl结果为Sendl;return 0;五实验结果六实验心得：通过本次实验，我掌握了求数值积分的各种方法。了解了数值积分精度与步长的关系，体验了各种数值积分方法的精度和计算量，也让我了解了三种积分公式的精度及其区别。虽然复化梯形公式，运算简单，但是其结果不够精确。复化Simpson公式，比较复杂一点，但是其效果却比复化梯形公式的结果好的多。Romberg公式给我们求最佳步长的方法，通过其可以算出十分精确的值。
