追赶法求解三对角方程及其算例
追赶法求解三对角方程组
要求:对于给定的三对角系数矩阵和右端项,可以求解线性代数方程组
追赶法的数学理论
设系数矩阵为三对角矩阵
则方程组Ax=f称为三对角方程组。
设矩阵A非奇异,A有Crout分解A=LU,其中L为下三角矩阵,U为单位上三角矩阵,记
可先依次求出L,U中的元素后,令Ux=y,先求解下三角方程组Ly=f得出y,再求解上三角方程组Ux=y。
事实上,求解三对角方程组的2追赶法将矩阵三角分解的计算与求解两个三角方程组的计算放在一起,使算法更为紧凑。其计算公式为:
(*)
追赶法的算法和流程图
1.预处理
生成方程组的系数及其除数,事实上,按式(*)可交替生成与:
→→→…→→
其计算公式为
2.追的过程
顺序生成方程组右端:
→→…→
据式(*)的计算公式为
3.赶的过程
逆序得出方程组的解:
→→…→
其计算公式按式为
追赶法的Matlab实现
function x=chase(a,b,c,f)
%求解线性方程组Ax=f,其中A是三对角阵
%a是矩阵A的下对角线元素a(1)=0
%b是矩阵A的对角线元素
%c是矩阵A的上对角线元素c(N)=0
%f是方程组的右端向量
N=length(f);
x=zeros(1,N);y=zeros(1,N);
d=zeros(1,N);u= zeros(1,N);
%预处理
d(1)=b(1);
for i=1:N-1
u(i)=c(i)/d(i);
d(i+1)=b(i+1)-a(i+1)*u(i);
end
%追的过程
y(1)=f(1)/d(1);
for i=2:N
y(i)=(f(i)-a(i)*y(i-1))/d(i);
end
%赶的过程
x(N)=y(N);
for i=N-1:-1:1
x(i)=y(i)-u(i)*x(i+1);
end
追赶法的算例实现
算例 用追赶法求解方程组
解答
令a=[0,-1,-1,-3]; b=[2,3,2,5]; c=[-1,-2,-1,0];
f=[6,1,0,1];
在命令窗口运行语句 x=chase(a,b,c,f)
得结果为
x=
5 4 3 2