2.1.m

来自「学习使用各种数值方法计算数值代数问题。其中包括计算矩阵的特征值问题」· M 代码 · 共 25 行

n=length(A);
a=[A,b];
for k=1:n-1
    maxa=max(abs(a(k:n,k)));
    if maxa==0
        return;
    end
    for i=k:n
        if abs(a(i,k))==maxa
            y=a(i,k:n+1);a(i,k:n+1)=a(k,k:n+1);a(k,k:n+1)=y;
            break;
        end
    end
    for i=k+1:n
        l(i,k)=a(i,k)/a(k,k);
        a(i,k+1:n+1)=a(i,k+1:n+1)-l(i,k).*a(k,k+1:n+1);
    end
end
if a(n,n)==0
    return
end
x(n)=a(n,n+1)/a(n,n);
for i=n-1:-1:1
    x(i)=(a(i,n+1)-sum(a(i,i+1:n).*x(i+1:n)))/a(i,i);
end