欢迎来到天天文库
浏览记录
ID：8975972
大小：25.41 KB
页数：3页
时间：2018-04-13
《matlab程序gauss列主元消去法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、．Gauss列主元消去法求解线性方程组迭代法计算停止的条件为：．采用用用Gauss列主元消去法时，Matlab计算程序为：clearclcA=[2212;413-1;-4-201;2323];B=[1;2;1;0];n=length(B);X=zeros(n,1);c=zeros(1,n);d1=0;fori=1:n-1max=abs(A(i,i));m=i;forj=i+1:nifmax2、m,k)=c(k);endd1=B(i);B(i)=B(m);B(m)=d1;endfork=i+1:nforj=i+1:nA(k,j)=A(k,j)-A(i,j)*A(k,i)/A(i,i);endB(k)=B(k)-B(i)*A(k,i)/A(i,i);A(k,i)=0;endendX(n)=B(n)/A(n,n);fori=n-1:-1:1sum=0;forj=i+1:nsum=sum+A(i,j)*X(j);endX(i)=(B(i)-sum)/A(i,i);endX计算结果为：X=（1.5417；-2.7500；0.0833；1.6667）
2、m,k)=c(k);endd1=B(i);B(i)=B(m);B(m)=d1;endfork=i+1:nforj=i+1:nA(k,j)=A(k,j)-A(i,j)*A(k,i)/A(i,i);endB(k)=B(k)-B(i)*A(k,i)/A(i,i);A(k,i)=0;endendX(n)=B(n)/A(n,n);fori=n-1:-1:1sum=0;forj=i+1:nsum=sum+A(i,j)*X(j);endX(i)=(B(i)-sum)/A(i,i);endX计算结果为：X=（1.5417；-2.7500；0.0833；1.6667）
此文档下载收益归作者所有
