《高斯消元法,列主元素消元法及l(fā)u分解法的matlab程序》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、§2.2.1高斯消元法的MATLAB程序function[RA,RB,n,X]=gaus(A,b)B=[Ab];n=length(b);RA=rank(A);RB=rank(B);zhica=RB-RA;ifzhica>0,disp('請注意：因為RA~=RB，所以此方程組無解.')returnendifRA==RBifRA==ndisp('請注意：因為RA=RB=n，所以此方程組有唯一解.')X=zeros(n,1);C=zeros(1,n+1);forp=1:n-1fork=p+1:nm=B(k,p)/B(p,p);B(k,p:n+1)=B(k,p:n+1)-m

2、*B(p,p:n+1);endendb=B(1:n,n+1);A=B(1:n,1:n);X(n)=b(n)/A(n,n);forq=n-1:-1:1X(q)=(b(q)-sum(A(q,q+1:n)*X(q+1:n)))/A(q,q);endelsedisp('請注意：因為RA=RB

3、3RB=3n=3X=1.4531-1.5892-0.2749§2.2.2列主元素消元法的MATLAB程序function[RA,RB,n,X]=liezhu(A,b)B=[Ab];n=length(b);RA=rank(A);RB=rank(B);zhica=RB-RA;ifzhica>0,disp('請注意：因為RA~=RB，所以此方程組無解.')returnendifRA==RBifRA==ndisp('請注意：因為RA=RB=n，所以此方程組有唯一解.')X=zeros(n,1);C=zeros(1,n+1);forp=1:n-1[Y,j]=max(abs(B

4、(p:n,p)));C=B(p,:);B(p,:)=B(j+p-1,:);B(j+p-1,:)=C;fork=p+1:nm=B(k,p)/B(p,p);B(k,p:n+1)=B(k,p:n+1)-m*B(p,p:n+1);endendb=B(1:n,n+1);A=B(1:n,1:n);X(n)=b(n)/A(n,n);forq=n-1:-1:1X(q)=(b(q)-sum(A(q,q+1:n)*X(q+1:n)))/A(q,q);endelsedisp('請注意：因為RA=RB

5、;1.480.93-1.30;2.683.04-1.48];b=[0.05;1.03;-0.53];[RA,RB,n,X]=liezhu(A,b)請注意：因為RA=RB=n，所以此方程組有唯一解.RA=3RB=3n=3X=1.4531-1.5892-0.2749§2.2.3LU分解法的MATLAB程序functionhl=zhjLU(A)[nn]=size(A);RA=rank(A);ifRA~=ndisp('請注意：因為A的n階行列式hl等于零，所以A不能進行LU分解.A的秩RA如下:'),RA,hl=det(A);returnendifRA==nforp=1:n

6、h(p)=det(A(1:p,1:p));endhl=h(1:n);fori=1:nifh(1,i)==0disp('請注意：因為A的r階主子式等于零，所以A不能進行LU分解.A的秩RA和各階順序主子式值hl依次如下：'),hl;RAreturnendendifh(1,i)~=0disp('請注意：因為A的各階主子式都不等于零，所以A能進行LU分解.A的秩RA和各階順序主子式值hl依次如下：')forj=1:nU(1,j)=A(1,j);endfork=2:nfori=2:nforj=2:nL(1,1)=1;L(i,i)=1;ifi>jL(1,1)=1;L(2,1)

7、=A(2,1)/U(1,1);L(i,1)=A(i,1)/U(1,1);L(i,k)=(A(i,k)-L(i,1:k-1)*U(1:k-1,k))/U(k,k);elseU(k,j)=A(k,j)-L(k,1:k-1)*U(1:k-1,j);endendendendhl;RA,U,Lendend運行命令及結(jié)果a=[2.511.484.53;1.480.93-1.30;2.683.04-1.48];hl=zhjLU(A)請注意：因為A的各階主子式都不等于零，所以A能進行LU分解.A的秩RA和各階順序主子式值hl依次如下：RA=3U=2.51001.48004.53