lusolv.m

来自「matlab 多个计算方程租的算法汇集 主要讲的是一般方法 还有正定矩阵的解法」· M 代码 · 共 25 行

function x=lusolv(a,b)
%LU分解求解线性方程组aX=b
if length(a)~=length(b)
    error('Error in inputing!')
    return;
end
n=length(a);
[l,u]=lu(a);
y(1)=b(1);
for i=2:n
    z=0;
    for k=1:i-1
        z=z+l(i,k)*y(k);
    end
    y(i)=b(i)-z;
end

x(n)=y(n)/u(n,n);
for i=n-1:-1:1
    z=0;
    for k=i+1:n
        z=z+u(i,k)*x(k);
    end
    x(i)=(y(i)-z)/u(i,i);
end