MATLAB复化梯形法与龙贝格法计算定积分.pdfVIP

姓名：樊元君 学号： 2012200902 日期：2012.11.06 1. 实验目的： 掌握复化梯形法与龙贝格法计算定积分。 2. 实验内容： 分别写出变步长梯形法与龙贝格法计算定积分的算法， 编写程序 上机调试出结果， 要求所编程序适用于任何类型的定积分， 即能解决 这一类问题， 而不是某一个问题。 实验中以下列数据验证程序的正确 性。 求 。 3. 程序流程图： ● 变步长梯形法流程图： ●龙贝格法流程图： 4. 源程序： ● 变步长梯形法： function [ y ] =BTX(a,b,e) a=input( a= ); b=input( b= ); e=input( e= ); h=(b-a); t1=((f(a)+f(b))*h)/2; t2=0; %准备初值 % while abs(t2-t1)e %while 语句控制计算精度以及控制计算时长 if t2~=0 %按照变步长梯形法 h=h/2; %递推公式求二分后积分值 t1=t2; end s=0; x=a+h/2; while xb s=s+f(x); x=x+h; end t2=(t1/2)+(h/2)*s; end disp( 插值结果 = );disp(t2); end function [ y ] =f(x) %被积分函数 % if x~=0 y=sin(x)/x; else y=1; end end ●龙贝格法程序： function [ y ] =LB(a,b,e) format long a=input( a= ); b=input( b= ); e=input( e= ); h=(b-a); t1=((f(a)+f(b))*h)/2; k=1;s=0;s1=0;s2=0;c2=0;c1=0;r1=0;r2=0; % 准备初值 % while k==1||k==2||k==3||k=4 s=0;x=a+h/2; while xb s=s+f(x);x=x+h; end t2=(t1/2)+(h/2)*s; s2=t2+(t2-t1)/3; if k==1 k=k+1;h=h/2;t1=t2;s1=s2; continue end c2=s2+(s2-s1)/15; if k==2 c1=c2; k=k+1;h=h/2;t1=t2;s1=s2; continue end r2=c2+(c2-c1)/63; if k==3 r1=r2;c1=c2; k=k+1;h=h/2;t1=t2;s1=s2; continue end if abs(r2-r1)e break else r1=r2;c1=c2; k=k+1;h=h/2;t1=t2;s1=s2; continue end end disp( 插值结果 = );disp(r2); end function [ y ] =f(x) %被积分函数