有限差分法求解偏微分方程MATLAB（特制内容）

《有限差分法求解偏微分方程MATLAB（特制内容）》由会员分享，可在线阅读，更多相关《有限差分法求解偏微分方程MATLAB（特制内容）（33页珍藏版）》请在装配图网上搜索。

1、南京理工大学课程考核论文课程名称： 高等数值分析 论文题目： 有限差分法求解偏微分方程 姓 名： 罗 晨 学 号： 115104000545 成 绩： 任课教师评语： 签名： 年 月 日有限差分法求解偏微分方程一、主要内容1.有限差分法求解偏微分方程，偏微分方程如一般形式的一维抛物线型方程：具体求解的偏微分方程如下：2.推导五种差分格式、截断误差并分析其稳定性；3.编写MATLAB程序实现五种差分格式对偏微分方程的求解及误差分析；4.结论及完成本次实验报告的感想。二、推导几种差分格式的过程：有限差分法（finite-difference methods）是一种数值方法通过有限个微分方程近似求导

2、从而寻求微分方程的近似解。有限差分法的基本思想是把连续的定解区域用有限个离散点构成的网格来代替；把连续定解区域上的连续变量的函数用在网格上定义的离散变量函数来近似；把原方程和定解条件中的微商用差商来近似，积分用积分和来近似，于是原微分方程和定解条件就近似地代之以代数方程组，即有限差分方程组，解此方程组就可以得到原问题在离散点上的近似解。推导差分方程的过程中需要用到的泰勒展开公式如下： (2-1)求解区域的网格划分步长参数如下： (2-2)2.1 古典显格式2.1.1 古典显格式的推导由泰勒展开公式将对时间展开得 (2-3)当时有 (2-4)得到对时间的一阶偏导数 (2-5)由泰勒展开公式将对位

3、置展开得 (2-6)当时，代入式(2-6)得 (2-7)因为，代入上式得 (2-8)得到对位置的二阶偏导数 (2-9)将式(2-5)、(2-9)代入一般形式的抛物线型偏微分方程得(2-10)为了方便我们可以将式(2-10)写成 (2-11) (2-12)最后得到古典显格式的差分格式为 (2-13)，古典显格式的差分格式的截断误差是。2.1.2 古典显格式稳定性分析古典显格式(2-13)写成矩阵形式为 (2-14)上面的C矩阵的特征值是： (2-15)使，即结论：当时，所以古典显格式是稳定的。2.2 古典隐格式2.2.1 古典隐格式的推导将代入式 (2-3)得 (2-16) (2-17)得到对时

4、间的一阶偏导数 (2-18)将式(2-9)、(2-18)原方程得到(2-19)为了方便把(2-19)写成 (2-20) (2-21)最后得到古典隐格式的差分格式为 (2-22)，古典隐格式的差分格式的截断误差是。2.2.2 古典隐格式稳定性分析将古典隐格式(2-22)写成矩阵形式如下 (2-23)误差传播方程 (2-24)所以误差方程的系数矩阵为使，显然 恒成立。结论：对于，即任意网格比下，古典隐格式是绝对稳定的。2.3 Richardson格式2.3.1 Richardson格式的推导将，代入式(2-3)得 (2-25)即 (2-26)由此得到可得 (2-27)将式(2-9) 、(2-27)

5、代入原方程得到下式 (2-28)为了方便可以把式(2-28)写成 (2-29)即 (2-30)最后得到Richardson显格式的差分格式为 (2-31)，古典显格式的差分格式的截断误差是。2.3.2 Richardson稳定性分析将Richardson显格式(2-31)写成如下矩阵形式 (2-32)误差传播方程矩阵形式 (2-33)再将上面的方程组写成矩阵形式 (2-34)系数矩阵的特征值是 (2-35)解得特征值为 (2-36) (恒成立) (2-37)结论：上式对任意的网比都恒成立，即Richardson格式是绝对不稳定的。4. Crank-Nicholson格式3.4.1 Crank-

6、Nicholson格式的推导将代入式(2-9)得 (2-40)即 (2-41)得到如下方程 (2-42)所以处的一阶偏导数可以用下式表示： (2-43)将,代入式(2-6)可以得到式(2-9)；同理,代入式(2-6)可以得到 (2-44)所以，处的二阶偏导数用式(2-6)、(2-44)表示： (2-45)所以，处的函数值可用下式表示： (2-46)原方程变为： (2-47)将差分格式代入上式得： (2-48)为了方便写成： (2-49)最后得到Crank-Nicholson格式的差分格式为 (2-50)，Crank-Nicholson格式的差分格式的截断误差是。3.4.1 Crank-Nich

7、olson稳定性分析Crank-Nicholson格式写成矩阵形式如下： (2-51)误差传播方程是： (2-52)可以得到： (2-53) (2-54)使 即 (2-55) (2-56) (2-57) (2-58)上式恒成立。结论：Crank-Nicholson格式对任意网格比也是绝对稳定的。5. Du Fort Frankle格式（Richardson格式的改进）将代入式(2-31)并化简得到Du Fort Frankle： (2-59) (2-60)可以证明Du Fort Frankle格式是绝对稳定的。因为此格式是Richardson格式的改进格式，因此截断误差还是。3.6 总结(1)

8、 古典显格式古典显格式的差分格式为截断误差：。稳定性：当时，古典显格式稳定。(2) 古典隐格式古典隐格式的差分格式为截断误差：。稳定性：任意网格比古典隐格式绝对稳定。(3) Richardson显格式Richardson显格式的差分格式为截断误差：。稳定性：任意网格比Richardson格式绝对不稳定。(4) Crank-Nicholson格式Crank-Nicholson格式的差分格式为截断误差：。稳定性：Crank-Nicholson格式对任意网格比绝对稳定。(5) Du Fort Frankle格式截断误差：。稳定性：Du Fort Frankle格式对任意网格比绝对稳定。三、MATLA

9、B实现五种差分格式对偏微分方程的求解及误差分析3.1 精确数值解上述偏微分方程的精确解是区域取值范围：。用MATLAB对精确解进行编程画出三维图像精确解程序如下：close allclcx,t=meshgrid(0:0.01:1,0:0.001:0.2)u=exp(-pi*pi*t).*sin(pi*x)mesh(x,t,u);surf(x,t,u);xlabel(x),ylabel(t),zlabel(u);title(精确数值解);shading interp图3-1 精确数值解的三维图 (a) 精确数值解X-Y平面 (b) 精确数值解X-Z平面(c) 精确数值解Y-Z平面图3-2 精确数

10、值解的三个平面图3.2 五种差分格式MATLAB程序3.2.1 古典显格式close allclcT=0.2X=1.0M=41N=11u=zeros(M,N); %构造一个M行N列的矩阵用于存放时间t和变量xra=(T/(M-1)/(X/(N-1)2); %网格比fprintf(稳定性系数 S=ra 为:n);disp(ra); % 显示网格比for i=2:N-1 xx=(i-1)*(X/(N-1); u(1,i)=sin(pi*xx); end; %即t=0时刻赋值，边界条件for k=1:M u(k,1)=0; u(k,N)=0;end; % x=0,x=1处的边界条件for k=1:M

11、-1 %矩阵是从y轴表示行k，x轴表示列i。由行开始 for i=2:N-1 u(k+1,i)=(1-2*ra)*u(k,i)+ra*u(k,i+1)+ra*u(k,i-1); %此处为古典显格式 endenddisp(u); % 显示差分法求得的值x,t=meshgrid(1:N,1:M); %将区域划分成网格对每个点赋值再画图surf(x,t,u); xlabel(x),ylabel(t),zlabel(u);title( 古典显格式); %此程序得到的是图3-3图3-3古典显格式程序结果图（r=0.5）图3-4精确数值解、古典显格式程序结果的Y-Z平面图（r=0.5）图3-5古典显格式在

12、取不同网格比时的误差传播结果图图3-6 不同时间取值时精确解、与古典显格式的值对比图（网格比r=0.5）红线表示精确解、蓝色线表示差分格式的解图3-1、图3-3对比可以看出，精确解和古典显格式（网格比r=0.5）的图形是一致的。图3-4精确数值解、古典显格式的Y-Z平面图结果可以看出古典显格式的边界值和精确解一样。图3-5是r分别取0.245、0.5、0.72、1.125时的误差传播图像，边界位置网格数为5处的误差为0.01得到的，可以看出r小于等于0.5是稳定的；但是r大于0.5出现不稳定现象。很好的验证了古典显格式稳定性。3.2.2 古典隐格式close allclcT=0.2X=1.0M

13、=41N=21ra=(T/(M-1)/(X/(N-1)2); %网格比fprintf(稳定性系数 S=ra 为:n);disp(ra); %显示网格比u=zeros(M,N); %构造一个M行N列的矩阵用于存放时间t和变量x for i=2:N-1 xx=(i-1)*(X/(N-1); u(1,i)=sin(pi*xx); %t=0时刻的赋值，边界条件 end; for k=1:M u(k,1)=0; u(k,N)=0; end; % x=0,x=1处的边界条件A=zeros(N-1,N-1); %隐格式的矩阵形式中的A矩阵赋值 A(1,1)=1+2*ra; A(N-1,N-1)=1+2*ra

14、; A(1,2)=-ra; A(N-1,N-2)=-ra; for m=2:N-2 A(m,m-1)=-ra; A(m,m)=1+2*ra; A(m,m+1)=-ra; end;%以下是追赶法求u值d=zeros(N-1,1); %隐格式右边初始矩阵n=length(d);U=zeros(n);L=eye(n);y=zeros(n,1);x=zeros(n,1);for i=1:N-1 d(i,1)=sin(pi*(i-1)*(1.0/(N-1); end %隐格式右边矩阵赋值%以下循环对矩阵A进行LU分解U(1,1)=A(1,1); for i=2:n L(i,i-1)=A(i,i-1)/U

15、(i-1,i-1); U(i-1,i)=A(i-1,i);%U的上次对角线即为A的上次对角线 U(i,i)=A(i,i)-L(i,i-1)*U(i-1,i); endfor k=1:M-1 %外层大循环是求时间网格2,3，M的求解u%以下是追赶法的求解过程%-追的过程-即Ly=d的求解yy(1,1)=d(1,1);for i=2:n y(i,1)=d(i,1)-L(i,i-1)*y(i-1,1);end%-赶的过程-即Ux=y的求解xx(n,1)=y(n,1)/U(n,n);for i=n-1:-1:1 x(i,1)=(y(i,1)-U(i,i+1)*x(i+1,1)/U(i,i);end %

16、追赶法结束 for i=1:n u(k+1,i)=x(i,1) end d=zeros(N-1,1); %更新右边矩阵 d=x %每次外循环更换右边矩阵end for k=1:M u(k,1)=0; end;disp(u); % 显示差分法求得的值 x,t=meshgrid(1:N,1:M); %将区域划分成网格对每个点赋值再画图surf(x,t,u);xlabel(x),ylabel(t),zlabel(u);title(古典隐格式); %此程序得到图是3-7图3-7古典隐格式程序结果图（r=2）图3-8精确数值解、古典隐格式程序结果的Y-Z平面图（r=2）图3-9古典隐格式在取不同网格比时

17、的误差传播结果图图3-10 不同时间取值时精确解、与古典隐格式的值对比图（网格比r=2）红线表示精确解、蓝色线表示差分格式的解图3-7古典隐格式在r=2的图形与精确解是一致的。图3-8精确数值解、古典隐格式的Y-Z平面图结果可以看出古典隐格式在t=0.2处的值的边界值和精确解还是有误差的。图3-5是r分别取0.245、0.5、0.72、1.125时的误差传播图像，边界位置网格数为5处的误差为0.01得到的，可以看出r取不同的值时都是稳定的；即古典隐格式对任意的网格比稳定性。从图3-10可以看出隐格式随着时间的增加，差分格式计算的结果和精确结果越来越大；隐格式虽然对任意网格比都是稳定的，但是计算

18、的精确度是它的不足。3.2.3 Richardson显格式close allclcT=0.2X=1.0000M=41N=11ra=(T/(M-1)/(X/(N-1)2);fprintf(稳定性系数 S=ra 为:n);disp(ra);u=zeros(M,N); %构造一个M行N列的矩阵 for i=2:N-1 xx=(i-1)*(X/(N-1); u(1,i)=sin(pi*xx); %边界条件 end; for k=1:M u(k,1)=0; u(k,N)=0; % 边界条件 end;%因为Richadson格式需要知道前两行的值，第二行值我们采用隐格式求得%下面是隐格式求解第二行，和3.

19、2.2隐格式的程序一样，只是求一行，此处不再做注释A=zeros(N-1,N-1); A(1,1)=1+2*ra; A(N-1,N-1)=1+2*ra; A(1,2)=-ra; A(N-1,N-2)=-ra; for m=2:N-2 A(m,m-1)=-ra; A(m,m)=1+2*ra; A(m,m+1)=-ra; end;n=N-1;U=zeros(n);L=eye(n);y=zeros(n,1);x=zeros(n,1);U(1,1)=A(1,1); for i=2:n L(i,i-1)=A(i,i-1)/U(i-1,i-1); U(i-1,i)=A(i-1,i); %U的上次对角线即为

20、A的上次对角线 U(i,i)=A(i,i)-L(i,i-1)*U(i-1,i); endy(1,1)=u(1,1);for i=2:n y(i,1)=u(1,i)-L(i,i-1)*y(i-1,1);endx(n,1)=y(n,1)/U(n,n);for i=n-1:-1:1 x(i,1)=(y(i,1)-U(i,i+1)*x(i+1,1)/U(i,i);end u(2,1)=0;for i=2:N-1 u(2,i)=x(i,1)end%通过隐格式已求得第二行的值u(2,i)，下面是Richardson格式的过程for k=2:M-1 %时间轴第3行开始到第M行 for i=2:N-1 %位置

21、网格点 u(k+1,i)=2*ra*(u(k,i-1)-2*u(k,i)+u(k,i+1)+u(k-1,i); %Richardson格式 endenddisp(u); %显示求解的值x,t=meshgrid(1:N,1:M); %区域划分进行赋值画图surf(x,t,u);xlabel(x),ylabel(t),zlabel(u);title(Richardson格式); %此程序得到的图形是图3-11图3-11 Richardson显格式程序结果图（r=0.5）图3-12精确数值解、Richardson显格式程序结果的Y-Z平面图（r=0.5）图3-13 Richardson显格式在取不同

22、网格比时都不稳定的结果图图3-11是 Richardson显格式在r=0.5时的程序结果图，可以看出不稳定。图3-12是精确数值解、Richardson显格式程序结果的Y-Z平面图。从图3-13可以看出Richardson显格式在取不同网格比时都出现不稳定现象，和理论结果相一致。所以说Richardson显格式绝对不稳定，这种差分格式不能使用。后面有改进的格式D-F格式。3.2.4 Crank-Nicholson格式close allclcT=0.2X=1.0000M=41N=21ra=(T/(M-1)/(X/(N-1)2);fprintf(稳定性系数 S=ra 为:n);disp(ra);u

23、=zeros(M,N); %构造一个M行N列的矩阵用于存放时间t和变量x%disp(u);for i=2:N-1 xx=(i-1)*(X/(N-1); u(1,i)=sin(pi*xx); % 边界条件 end; for k=1:M u(k,1)=0; u(k,N)=0; % 边界条件 end; %Crank-Nicholson格式需要两个矩阵，下面的A、B，参照Crank-Nicholson格式的矩阵形式A=zeros(N-1,N-1); %下面对A进行填充赋值 A(1,1)=1+ra; A(N-1,N-1)=1+ra; A(1,2)=-ra/2; A(N-1,N-2)=-ra/2; for

24、 m=2:N-2 A(m,m-1)=-ra/2; A(m,m)=1+ra; A(m,m+1)=-ra/2;end;B=zeros(N-1,N-1); %下面对B矩阵进行填充赋值 B(1,1)=1-ra; B(N-1,N-1)=1-ra; B(1,2)=ra/2; B(N-1,N-2)=ra/2;for m=2:N-2 B(m,m-1)=ra/2; B(m,m)=1-ra; B(m,m+1)=ra/2;end;%以下是追赶法求u值d=zeros(N-1,1); %首先填充右边向量，然后进行L、U分解n=length(d);U=zeros(n);L=eye(n);y=zeros(n,1);x=ze

25、ros(n,1);U(1,1)=A(1,1); for i=2:n L(i,i-1)=A(i,i-1)/U(i-1,i-1); U(i-1,i)=A(i-1,i); %U的上次对角线即为A的上次对角线 U(i,i)=A(i,i)-L(i,i-1)*U(i-1,i); endfor i=1:N-1 d(i,1)=sin(pi*(i-1)*(1.0/(N-1); endfor k=1:M-1 %按层外围大循环，即时间步长 m=zeros(n,1); m(1,1)=B(1,1)*d(1,1)+B(1,2)*d(2,1); m(N-1,1)=B(N-1,N-2)*d(N-2,1)+B(N-1,N-1)

26、*d(N-1,1); for i=2:N-2 m(i,1)=B(i,i-1)*d(i-1,1)+B(i,i)*d(i,1)+B(i,i+1)*d(i+1,1); end %以上是右边矩阵的填充更新%-追-求解Ly=b，其中b是原来的列向量矩阵乘上B系数矩阵得到的y(1,1)=m(1,1);for i=2:n y(i,1)=m(i,1)-L(i,i-1)*y(i-1,1);end%-赶-求解Ux=yx(n,1)=y(n,1)/U(n,n);for i=n-1:-1:1 x(i,1)=(y(i,1)-U(i,i+1)*x(i+1,1)/U(i,i);end for i=1:n u(k+1,i)=x

27、(i,1) end d=zeros(N-1,1); %右边向量 d=xend for k=1:M u(k,1)=0; end;disp(u); % u的值全部求出，以下画图x,t=meshgrid(1:N,1:M);surf(x,t,u);xlabel(x),ylabel(t),zlabel(u);title( Crank-Nicholson格式); %此程序得到的图像是图3-14图3-14 Crank-Nicholson格式程序结果图（r=2）图3-15精确数值解、Crank-Nicholson格式程序结果的Y-Z平面图（r=2）图3-16 Crank-Nicholson格式在取不同网格比时

28、的误差传播结果图图3-17 不同时间取值时精确解、与C-N格式的解对比图（网格比r=2）红线表示精确解、蓝色线表示差分格式的解图3-14是程序运行得到的Crank-Nicholson格式在网格比取r=2的结果，和精确解图像一致。在t=0.2时从图3-15 的Y-Z面可以看出结果还是有一定的误差。理论上Crank-Nicholson格式对任意的网格比也是稳定的，从图3-16可以看出在r取0.245、0.5、0.72、1.125误差传播图像可以看出误差不会扩撒。图3-17是不同时间取值时精确解、与C-N格式r=2时的解对比图，计算还是具有误差。3.2.5 Du Fort Frankle格式clos

29、e allclcT=0.2X=1.0000M=41N=21ra=(T/(M-1)/(X/(N-1)2);fprintf(稳定性系数 S=ra 为:n);disp(ra);u=zeros(M,N); %构造一个M行N列的矩阵 for i=2:N-1 xx=(i-1)*(X/(N-1); u(1,i)=sin(pi*xx); %i表示x轴，k表示y轴(即t) end; for k=1:M %其实初始矩阵已经将i=1和i=N列的初值赋零了 u(k,1)=0; u(k,N)=0; end;%第二行用隐格式求得A=zeros(N-1,N-1); %下面对A进行填充赋值 A(1,1)=1+2*ra; A(

30、N-1,N-1)=1+2*ra; A(1,2)=-ra; %第一行第二个和最后一行倒数第二个一个赋值 A(N-1,N-2)=-ra; for m=2:N-2 A(m,m-1)=-ra; A(m,m)=1+2*ra; A(m,m+1)=-ra; end;n=N-1;U=zeros(n);L=eye(n);y=zeros(n,1);x=zeros(n,1);U(1,1)=A(1,1); for i=2:n L(i,i-1)=A(i,i-1)/U(i-1,i-1); U(i-1,i)=A(i-1,i); %U的上次对角线即为A的上次对角线 U(i,i)=A(i,i)-L(i,i-1)*U(i-1,i

31、); end%-追-y(1,1)=u(1,1);for i=2:n y(i,1)=u(1,i)-L(i,i-1)*y(i-1,1);end%-赶-x(n,1)=y(n,1)/U(n,n);for i=n-1:-1:1 x(i,1)=(y(i,1)-U(i,i+1)*x(i+1,1)/U(i,i);end u(2,1)=0;for i=2:N-1 u(2,i)=x(i,1)end %第二行求出，下面用D-F差分格式for k=2:M-1 for i=2:N-1 u(k+1,i)=(2*ra*u(k,i-1)+2*ra*u(k,i+1)+(1-2*ra)*u(k-1,i)/(1+2*ra); en

32、denddisp(u);x,t=meshgrid(1:N,1:M);surf(x,t,u);xlabel(x),ylabel(t),zlabel(u);title(Du Fort Frankle格式); %此程序为Richardson格式的改进，得到图3-18图3-18 Du Fort Frankle格式程序结果图（r=2）图3-19精确数值解、Du Fort Frankle格式程序结果的Y-Z平面图（r=2）图3-20 Du Fort Frankle格式在取不同网格比时的误差传播结果图图3-21 不同时间取值时精确解、与D-F格式的解对比图（网格比r=2）红线表示精确解、蓝色线表示差分格式的

33、解D-F格式是Richardson格式（绝对不稳定）的改进，从图3-18可以看出当r时D-F格式是稳定的；图3-20表示D-F格式网格比r为0.245、0.5、0.72、1.125时误差传播图像，不同的网格比误差都不会扩撒。说明这种格式是稳定的，和理论上的结果相一致。图3-21是不同时间取值时精确解、与D-F格式的解对比，随时间的增加计算的值和差分得到的值有误差。此种格式虽然是绝对稳定的，但是计算的精度还是有待提升。四、结论及感想从程序得出的结果与精确解的对比来看和理论是上的结果基本一致。比如古典显格式网格比r小于等于0.5（偏微分方程的系数a取1）才稳定，从MATLAB编程运行的结果也可以看

34、出r小于等于0.5是稳定的，r大于0.5不稳定。又如Richardson格式理论上是绝对不稳定的，从编程的结果在取不同的网格比Richardon格式都是不稳定的，理论和结果一致。理论上对不稳定格式进行改进使其稳定，比如得到的D-F格式，取不同的格式网格比都是稳定的，很好的验证了改进的格式的稳定性。本次报告首先推导了一维抛物线型偏微分方程的一般差分格式。分别是古典显格式、古典隐格式、Richardson显格式、C-N格式进版的Richardson格式D-F格式。推导中得到各种格式的截断误差，从理论上分析了各种格式的稳定性。对于不稳定的格式进行修改得到稳定的格式，即Richardson格式的修改。

35、通过MATLAB编程实现了各种格式的程序实现。用实验的方法来验证理论结果，能更好的理解各种差分格式的稳定性及操作过程。报告中的程序都是基本程序，误差图与二维x-u的图像（见附录）都是在基本程序的基础上对参数的修改得到的图像。通过这次报告的完成学到了很多的东西。首先，对编程有了进一步的了解；尤其是使用MATLAB编程。在这个过程中也遇到了很多的问题，通过查阅资料并利用网络资源寻求解决办法。其次，对于差分格式在程序上的实现并不是简单的书写，需要步步衔接好；比如好几种格式都用到差分格式的矩阵形式，尤其是隐式格式不能直接求解，需要应用追赶法进行求解；编写过程中通过直接求解得出的结果都不正确，通过追赶法

36、才能得到正确的结果。最后，我们专业是电磁场与微波技术且偏计算，经常遇到偏微分方程的求解；所以这次试验毫无疑问的对我们理解有限差分法和求解方程提供了很大的帮助。最后，感谢张老师在课堂上的知识的讲解；同时也感谢在完成报告期间对我提供帮助的同学！附 录误差传播三维图（以显格式（图3-5）为例）：参11考close allclcT=0.2X=1.0M=41N=8u=zeros(M,N); %构造一个M行N列的矩阵用于存放时间t和变量xra=(T/(M-1)/(X/(N-1)2); %网格比fprintf(稳定性系数 S=ra 为:n);disp(ra); % 显示网格比u(1,5)=0.01;%即t=

37、0时刻赋值，误差0.01for k=1:M u(k,1)=0; u(k,N)=0;end; % x=0,x=1处的边界条件for k=1:M-1 %矩阵是从y轴表示行k，x轴表示列i。由行开始 for i=2:N-1 u(k+1,i)=(1-2*ra)*u(k,i)+ra*u(k,i+1)+ra*u(k,i-1); %此处为古典显格式 endenddisp(u); % 显示差分法求得的值x,t=meshgrid(1:N,1:M); %将区域划分成网格对每个点赋值再画图subplot(2,2,1)surf(x,t,u); xlabel(x),ylabel(t),zlabel(u);title(古

38、典显格式-误差传播 r=0.245);clcT=0.2X=1.0M=41N=11u=zeros(M,N);ra=(T/(M-1)/(X/(N-1)2);fprintf(稳定性系数 S=ra 为:n);disp(ra); u(1,5)=0.01; %即t=0时刻赋值，误差0.01 for k=1:M u(k,1)=0; u(k,N)=0;end;for k=1:M-1 for i=2:N-1 u(k+1,i)=(1-2*ra)*u(k,i)+ra*u(k,i+1)+ra*u(k,i-1); endenddisp(u); x,t=meshgrid(1:N,1:M);subplot(2,2,2)su

39、rf(x,t,u); xlabel(x),ylabel(t),zlabel(u);title(古典显格式-误差传播 r=0.5);clcT=0.2X=1.0M=41N=13u=zeros(M,N);ra=(T/(M-1)/(X/(N-1)2);fprintf(稳定性系数 S=ra 为:n);disp(ra);u(1,5)=0.01; %即t=0时刻赋值，误差0.01for k=1:M u(k,1)=0; u(k,N)=0;end;for k=1:M-1 for i=2:N-1 u(k+1,i)=(1-2*ra)*u(k,i)+ra*u(k,i+1)+ra*u(k,i-1); endenddis

40、p(u); x,t=meshgrid(1:N,1:M);subplot(2,2,3)surf(x,t,u); xlabel(x),ylabel(t),zlabel(u);title(古典显格式-误差传播 r=0.72);clcT=0.2X=1.0M=41N=16u=zeros(M,N);ra=(T/(M-1)/(X/(N-1)2); fprintf(稳定性系数 S=ra 为:n);disp(ra);u(1,5)=0.01; %即t=0时刻赋值，误差0.01for k=1:M u(k,1)=0; u(k,N)=0;end;for k=1:M-1 for i=2:N-1 u(k+1,i)=(1-2

41、*ra)*u(k,i)+ra*u(k,i+1)+ra*u(k,i-1); endenddisp(u);x,t=meshgrid(1:N,1:M); subplot(2,2,4) surf(x,t,u); xlabel(x),ylabel(t),zlabel(u);title( 古典显格式-误差传播 r=1.125);参11考不同时刻的二维图的程序（基础程序运行后运行如下程序得到二维图）：以显格式（图3-6）为例：k=11;xx=(0:X/(N-1):1)a=(xx-(X/(N-1)/(X/(N-1)+2i=int8(a)y=u(k,i)x=(0:0.01:1)z=exp(-pi*pi*(k-1

42、)*(T/(M-1).*sin(pi*x)t=(k-1)*(T/(M-1)subplot(2,2,1) plot(xx,y,b,x,z,r)xlabel(x),ylabel(u);title(t=0.05 时，精确解、古典显格式的解曲线对比);k=20;xx=(0:X/(N-1):1)a=(xx-(X/(N-1)/(X/(N-1)+2i=int8(a)y=u(k,i)x=(0:0.01:1)z=exp(-pi*pi*(k-1)*(T/(M-1).*sin(pi*x)t=(k-1)*(T/(M-1)subplot(2,2,2) plot(xx,y,b,x,z,r)xlabel(x),ylabel

43、(u);title(t=0.095 时，精确解、古典显格式的解曲线对比);k=26;xx=(0:X/(N-1):1)a=(xx-(X/(N-1)/(X/(N-1)+2i=int8(a)y=u(k,i)x=(0:0.01:1)z=exp(-pi*pi*(k-1)*(T/(M-1).*sin(pi*x)t=(k-1)*(T/(M-1)subplot(2,2,3) plot(xx,y,b,x,z,r)xlabel(x),ylabel(u);title(t=0.125 时，精确解、古典显格式的解曲线对比);k=36;xx=(0:X/(N-1):1)a=(xx-(X/(N-1)/(X/(N-1)+2i=int8(a)y=u(k,i)x=(0:0.01:1)z=exp(-pi*pi*(k-1)*(T/(M-1).*sin(pi*x)t=(k-1)*(T/(M-1)subplot(2,2,4) plot(xx,y,b,x,z,r)xlabel(x),ylabel(u);title(t=0.175 时，精确解、古典显格式的解曲线对比);