| 查看: 806 | 回复: 0 | |||
[求助]
求助详细讲解下述程序 三对角矩阵方程追赶法
|
|
function x=followup(A,b) %采用追赶法求线性方程组Ax=b的解 %线性方程组的系数矩阵：A %线性方程组中的常数向量:b %线性方程组的解：x n=rank(A); for(i=1:n) if(A(i,i)==0) disp('Error:对角所有元素为0!'); return; end end; d=ones(n,1); a=ones(n-1,1); c=ones(n-1); for(i=1:n-1) a(i,1)=A(i+1,i); c(i,1)=A(i,i+1); d(i,1)=A(i,i); end d(n,1)=A(n,n); %求解Ly=b的解y,解保存在b中 for(i=2:n) d(i,1)=d(i,1)-(a(i-1,1)/d(i-1,1))*c(i-1,1); b(i,1)=b(i,1)-(a(i-1,1)/d(i-1,1))*b(i-1,1); end %求解Ux=y的解x x(n,1)=b(n,1)/d(n,1); for(i=(n-1):-1:1) x(i,1)=(b(i,1)-c(i,1)*x(i+1,1))/d(i,1); end |
回复此楼» 猜你喜欢
拟解决的关键科学问题还要不要写
已经有11人回复
-
救命帖
已经有5人回复
-
限项规定
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
招博士
已经有3人回复
-
存款400万可以在学校里躺平吗
已经有35人回复
-
最失望的一年
已经有18人回复
-
求推荐博导
已经有4人回复
-
求推荐英文EI期刊
已经有5人回复
-
疑惑？
已经有5人回复