detgauss.m

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

function x=detGauss(a,b)
% Gauss列主元消去法
[n,m]=size(a);
nb=length(b);
det=1;%存储行列式值
x=zeros(n,1);
for k=1:n-1
    amax=0;% 选主元
    for i=k:n
        if abs(a(i,k))>amax
            amax=abs(a(i,k));r=i;
        end
    end
    if amax<1e-10
       return;
    end
    
    
    if r>k  %交换两行
        for j=k:n
            z=a(k,j);a(k,j)=a(r,j);a(r,j)=z;
        end
        z=b(k);b(k)=b(r);b(r)=z;det=-det;
    end
    
    for i=k+1:n   %进行消元
        m=a(i,k)/a(k,k);
        for j=k+1:n
            a(i,j)=a(i,j)-m*a(k,j);
        end
        b(i)=b(i)-m*b(k);
    end
    det=det*a(k,k);
end
det=det*a(n,n);

for k=n:-1:1  %回代
    for j=k+1:n
        b(k)=b(k)-a(k,j)*x(j);
    end
    x(k)=b(k)/a(k,k);
end