.
一.题目
用中心差分格式计算如下两点边值问题
dxduxsinx1xuxe2x1sinx1xxx1,1x2e dxdxu(1)0,u(2)2已知其精确解为
u(x)x(x1)
二.理论
作为模型,考虑两点边值问题:
Luddudu(p(x))rq(x)uf(x),axb…………(1.1) dxdxdxu(a),u(b)…………(1.2)
1假定pC[a,b],p(x)pmin0,r,q,fC[a,b],,是给定的常数。
1. 建立差分格式 (1).区域网格剖分 首先取N1个节点:
ax0x1将区间I[a,b]分成N个小区间:
xixNb,
Ii:xi1xxi,i1,2,N.
i于是得到区间I的一个网格剖分。记hixixi1,称hmaxhi为网格最大步长。用Ih表示网格内点x1,x2,
,xN1的集合,Ih表示内点和界点x0a,xNb的集合。
取相邻节点xi1,xi的中点xi121(xi1xi)(i1,2,2xN12,N),称为半整数点。则由节点
ax0x1x322xi12xNb
又构成[a,b]的一个网格剖分,称为对偶剖分。 (2).微分方程的离散,建立相应差分格式
用差商代替微商,将方程(1.1)在内点xi离散化.注意对充分光滑的u,由Taylor展式有
u(xi1)u(xi1)duhi1hid2u[]i[2]iO(h2)………(1.3)
hihi1dx2dx.
.
u(xi)u(xi1)hi2dud3up(x1)[p]1[p3]1O(h3)ihidxi224dxi22[phdudu]1i[p3]iO(h3)(1.4)dxi224dx23
u(xi1)u(xi)hi12d3udup(x1)[p]1[p3]iO(h3)
ihi1dxi224dx2 ………(1.5)
由(1.5)减(1.4),并除以
hihi1,得 2u(xi1)u(xi)u(xi)u(xi1)2[p(x1)p(x1)]iihihi1hhi1i22…………(1.6)
hi1hid3u2dudu([p]1[p]1)[p3]iO(h2)hihi1dxi2dxi212dxhi1hid2hi1hid3uddudu[(p)]i[2(p)]i[p3]iO(h2)dxdx4dxdx12dx令pi12p(xi12),rir(xi),qiq(xi),fif(xi),则由(1.3)(1.6)知,边值问题的解u(x)满足方程:
Lhu(xi)u(xi1)u(xi)u(xi)u(xi1)2[p1p1]ihihi1i2hi1hi2ri[u(xi1)u(xi1)]qiu(xi)fiRi(u)hihi1 其中
…………(1.7)
1d2du1d3u1d2uRi(u)(hi1hi)([2(p)]i[p3]i[r2]i)O(h2)
4dxdx12dx2dx …………(1.8) 为差分算子Lh的截断误差,舍去Ri(u),便得逼近边值问题(1.1)(1.2)的差分方程:
Lhu(xi)
u(xi1)u(xi)u(xi)u(xi1)2[p1p1]iihihi1hi1hi22ri[u(xi1)u(xi1)]qiu(xi)fihihi1i=1,2,…,N-1,
…………(1.9)
u0,uN
由方程(1.7)(1.9),截断误差Ri(u)可表示为
.
.
Ri(u)Lhu(xi)LhuiLh(u(xi)ui) …………(1.10)
当网格均匀,即hih(i1,2, Lhui,N)时差分方程(1.9)简化为
ui1ui11[pu(pp)upu]rqiuifi 1i111i1i1i2iiiih2h2222 …………(1.11)
这相当于用一阶中心差商,二阶中心差商依次代替(1.1)的一阶微商和二阶微商的结果。这个方程就是中心差分格式。 截断误差为:
1d2du1d3u1d2uRi(u)h([2(p)]i[p3]i[r2]i)O(h2)
4dxdx12dx2dx …………(1.12) 所以截断误差按||Rh(u)||0或||Rh(u)||c的阶为O(h)。
在本题中,p(x)e,r(x)0,q(x)sinx1x,f(x)e2x1sinx1xxx1
x2x0,2
因为r=0方程(1.11)的系数对角矩阵是三对角矩阵。我们可以用消元法或迭代法求解方程
组(1.1)(1.2)
式(1.11)用方程组展开:
111pu[(pp)q]up1u0f1323111222h2hh2221pu[1(pp)q]u1puf11kkk2k1k122k1k1kk hhh22221pu[1(pp)q]u1puf1N13N1N13N2N1222NNNNhhh2222
111pu[(pp)q]ufp32311112221h2h2h22[1(pp)q]u1puf1p13N1N1N122N3N22N1NNhhh2222
.
.
写成矩阵形式为:
11(pp)qp0002311h23222hu1112p3(pp)qp001532225h2h22h2u2uN2111002p52(p3p5)qN22p3NNNhhhN2222uN1110002p3(pp)qN12NN1N3hh2221f1h2p12f2fN21fpN1h2N12
2.收敛性分析
根据(1.10)我们引进误差
eiu(xi)ui
则误差函数eh(xi)ei满足下列差分方程:
LheiRi(u)e0eN0i1,2,,N1
于是收敛性及收敛速度的估计问题,就归结到通过右端Ri(u)(截断误差)估计误差函数eh的问题。
由(1.12)我们知,有
lim||Rh(u)||0
h0从而差分方程满足相容条件。 若引进记号
(vi)vxi,xvivi1vvivv,(vi)xvi,xi1,(vi)vi1i,
xi,xhihi1hi111hi(hihi1),h0h1,hNhN
222设pminc0
则可将(1.9)改写为
.
.
Lhui(p将差分解ui表成
i12(ui))qiuifi
xxuiuiui,iIh …………(2.1)
其中ui满足
~(ui)0,iIh,u0u0,uNuN …………(2.2)
xx
而ui满足
~LhuifiLhui,iIh,u0uN0 …………(2.3)
先估计uh,由
~~~~c0||(uh)||(fhLhuh,uh)Ih(fh,uh)Ih(Lhuh,uh)Ih …………(2.4)
x~20~~~
据差分格林公式
~~~(Lhuh,uh)Ih(ph(uh),(uh))Ih(qhuh,uh)Ih
xx再利用柯西不等式,有常数c1使
|(Lhuh,uh)Ih|[c1||(uh)||0c2||uh||0]||(uh)|| …………(2.5)
xx~~
将不等式(2.6)用于(2.5)右端,则
c1c21||(uh)||0||fh||1||(uh)||0||uh||0 …………(2.6)
xxc0c0c0~解差分方程(2.2,易得)
ui从而
uNu0(xia)u0 ba1|uNu0|
(ba)||(uh)||0x||uh||0(ba)max|ui|(ba)(|u0||uN|) iIh.
.
这样,
||uh||1(ba)(ba)1(|u0||uN|) …………(2.7)
利用范数||uh||1,从(2.7)推出
c1c21||(uh)||0||fh||1||uh||1 …………(2.8)
xc0c0因为
ba~||uh||0||(uh)||0
x2~因此
||uh||1||uh||0||(uh)||0x~ba(1)||(uh)||0 …………(2.9)
x2c1c2ba1(1)[||fh||1||uh||1]2c0c0~~~
联结(2.1)(2.7)及(2.9)即得差分解的先验估计:
||uh||1||uh||1||uh||1M1||fh||1M2(|u0||uN|)其中
~ …………(2.10)
M11ba(1),c02bac1c2)]2c0
M2(ba)(ba)1[1(1不等式(2.10)说明差分解连续依赖于右端和边值,因此差分格式(1.11)关于右端及边值
稳定.
根据定理1.1 : 若边值问题的解u充分光滑,差分方程按||||R满足相容条件且关于右端稳定,则差分解uh按||||收敛到边值问题的解,且有和||Rh(u)||R相同的收敛阶。所以差分方程的解的收敛速度为O(h)。
.
2.
三.程序代码: clc clf clf
syms x;
a=1; %区间界点 b=2; %区间界点
p=exp(x); %这是p函数
q=sin(x)+1+x; %这是q函数
f=-exp(x)*(2*x+1)+(sin(x)+1+x)*x*(x-1);%这是f函数 r=0; %这是r函数.
N=10; %将区间划分的等分,这里控制! h=(b-a)/N; %这里确定步长 value_of_f=zeros(N-1,1);%这是f
diag_0=zeros(N-1,1);%确定A的对角元
diag_1=zeros(N-2,1);%确定A的偏离对角的上对角元 diag_2=zeros(N-2,1);%确定A的偏离对角的下对角元 X=a:h:b;
u_a=0; %边界条件 u_b=2; %边界条件 for j=2:N
diag_0(j-1)=((subs(p,{x},{(X(j+1)+X(j))/2}))+(subs(p,{x},{(X(j-1)+X(j))/2})))/(h^2)+(subs(q,{x},{X(j)}));
end %获取对角元素 for j=3:N
diag_2(j-2)=-((subs(p,{x},{(X(j-1)+X(j))/2})))/(h^2)-subs(r,{x},{X(j)})/(2*h); end %获取A的第三条对角 for j=2:N-1
diag_1(j-1)=-((subs(p,{x},{(X(j+1)+X(j))/2})))/(h^2)+subs(r,{x},{X(j)})/(2*h); end %获取A的第二条对角 for j=2:N;
value_of_f(j-1)=subs(f,{x},{X(j)}); end %获取F值
value_of_f(1)=value_of_f(1)+u_a*(subs(p,{x},{(X(2)+X(1))/2}))/(h^2);
value_of_f(N-1)=value_of_f(N-1)+u_b*(subs(p,{x},{(X(N)+X(N+1))/2}))/(h^2); A=diag(diag_0)+diag(diag_1,1)+diag(diag_2,-1);%组装系数矩阵 format long
U=inv(A)*value_of_f %差分解 %fprintf('%11.5f',U) fprintf('\\n'); dx=X(2:N);
precise_value=dx.*(dx-1) %精确解 %fprintf('%11.5f',precise_value)
.
.
deta=U-precise_value' ; %误差 deta_max=max(abs(deta));%最大误差 fprintf('最大的误差是%f\\n',deta_max)
plot(X(2:N),U,'b*',X(2:N),precise_value,'r--') %差分解与精确解对比表 figure();
plot(X(2:N),deta) %误差图 结果: X的值 步长h 0.1 0.05 0.025 0.0125 精确解 2.1 0.11015 0.11003 0.11000 0.11000 0.11000 2.2 0.24026 0.24006 0.24001 0.24000 0.24000 2.3 0.39033 0.39008 0.39002 0.39000 0.39000 2.4 0.56037 0.56009 0.56002 0.56001 0.56000 2.5 0.75038 0.75009 0.75002 0.75001 0.75000 2.6 0.96038 0.96008 0.96002 0.96000 0.96000 2.7 1.19031 1.19007 1.19002 1.19000 1.19000 2.8 1.44022 1.44005 1.44001 1.44000 1.44000 2.9 1.71012 1.71003 1.71001 1.71000 1.71000 0.000380 0.000095 0.000024 0.000006 0 最大误差
以下仅给出步长为N=20,h=0.05的精确值和差分值图与误差图,其他的只要修改程序中的步长(N)值,即可同理得出。
N=20,h=0.05(图中蓝点和紫线分别是精确值图和差分图)
.
.
四.结论:
由本题可以总结出,通过用中心差分解两点边值所得的数值解能够较好地逼近方程的精确解,且区域剖分得越细,即步长越小,数值解与精确解的误差就越小,数值解越逼近精确解。
.