列主元消元法求解线性方程组matlab程序设计

算法步骤

---

 例题

 

---

程序代码

function x=liezhuyuan(A,b)
k=1;
n=length(b);
m=zeros(n,n);
X=A
Y=b
for k=1:n-1
    [ark,rk]=max(abs(A(k:n,k)));
    rk=k-1+rk;
    if rk>k
        link=A(k,:);
        A(k,:)=A(rk,:);
        A(rk,:)=link;
        link=b(k);
        b(k)=b(rk);
        b(rk)=link;
    end
    %消元（向量形式）
    m=A(k+1:n,k)/A(k,k);
    A(k+1:n,k)=0;
    A(k+1:n,k+1:n)=A(k+1:n,k+1:n)-m*A(k,k+1:n);
    b(k+1:n)=b(k+1:n)-m*b(k);
end
x=zeros(n,1);
x(n)=b(n)/A(n,n);
for k=n-1:-1:1
    x(k)=(b(k)-A(k,k+1:n)*x(k+1:n))/A(k,k);
end
X