资源描述:
《列主元消去法解方程组实验报告材料》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、实用文档实验名称:列主元消去法解方程组1引言我们知道,高斯消去法是一个古老的解线性方程组的方法。而在用高斯消去法解Ax=b时,其中设A为非奇异矩阵,可能出现的情况,这时必须进行带行交换的高斯消去法。但在实际计算中即使但其绝对值很小时,用作除数,会导致中间结果矩阵元素数量级严重增长和舍入误差的扩散,使得最后的结果不可靠。因此,小主元可能导致计算的失败,我们应该避免采用绝对值很小的主元素。为此,我们在高斯消去法的每一步应该在系数矩阵或消元后的低阶矩阵中选取绝对值最大的元素作为主元素,保持乘数,以便减少计算过程中舍入误差对计算解的影响。一
2、种方式是完全主元消去法,这种消去法是在每次选主元时,选择为主元素。这种方法是解低阶稠密矩阵方程组的有效方法,但这种方法在选取主元时要花费一定的计算机时间。实际计算中我们常采用部分选主元的的消去法。列主元消去法即在每次选主元时,仅依次按列选取绝对值最大的元素作为主元素,且仅交换两行,再进行消元计算。2实验目的和要求运用matlab编写一个.m文件,要求用列主元消去法求解方程组(实现PA=LU):要求输出以下内容:(1)计算解x;(2)L,U;(3)整形数组IP(i)(i=1,2,…,n-1)(记录主行信息)3算法原理与流程图(1)算法
3、原理设有线性方程组Ax=b,其中设A为非奇异矩阵。方程组的增广矩阵为文案大全实用文档第1步(k=1):首先在A的第一列中选取绝对值最大的元素,作为第一步的主元素:,然后交换(A,b)的第1行与第i1行元素,再进行消元计算。设列主元素消去法已经完成第1步到第k-1步的按列选主元,交换两行,消元计算得到与原方程组等价的方程组第k步计算如下:对于k=1,2,…,n-1(1)按列选主元:即确定ik使(2)如果,则A为非奇异矩阵,停止计算。(3)如果ik≠k,则交换[A,b]第ik行与第k行元素。(4)消元计算消元乘数满足:(5)回代求解文案
4、大全实用文档计算解在常数项b(n)内得到。(1)流程图见图1(2)1程序代码及注释%列主元消去法解方程组Ax=b,实现PA=LUfunction[x,L,U,IP,P]=gauss(A,b)%x为方程组的解,IP用来记录行信息%每次选列主元时,将A的第k行与第IP(k)行进行交换n=length(b);[p,q]=size(A);%当输入的系数矩阵不为方阵,或方阵维数与b不符时,报错ifp~=q
5、
6、p~=nfprintf('Error!Pleaseinputagain!');end%为提高运行速度,给IP,P,L,U赋初值IP=ze
7、ros(1,n-1);L=zeros(n,n);U=zeros(n,n);P=eye(n);x=zeros(1,n);det=1.0;%按列选主元,并进行行交换,记录行信息fork=1:n-1IP(k)=k;form=k+1:nifabs(A(m,k))>abs(A(k,k))IP(k)=m;endendI=eye(n);ifIP(k)~=kfori=1:np(i)=I(k,i);I(k,i)=I(IP(k),i);I(IP(k),i)=p(i);endA=I*A;b=I*b';b=b';文案大全实用文档end%进行消元计算fori
8、=k+1:nA(i,k)=A(i,k)/A(k,k);b(i)=b(i)-A(i,k)*b(k);forj=k+1:nA(i,j)=A(i,j)-A(i,k)*A(k,j);enddet=det*A(k,k);P=I*P;end%回代求解x(n)=b(n)/A(n,n);fori=n-1:-1:1sum=0.0;forj=i+1:nsum=sum+A(i,j)*x(j);endx(i)=(b(i)-sum)/A(i,i);enddet=det*A(n,n);ifdet==0fprintf('Theequationshavenouni
9、quesolution!');end%输出PA=LU中的L,U的信息fori=1:nforj=1:nifi10、c0
11、<εik=k换行消元计算输出停机回代求解输出计算解及行列式值b(i)(i=1,2,…,n)及det停机YYNN附图1文案大全实用文档5算例分析1、测试示例>>A=[123456];
12、>>b=[3711];>>[xLUIPP]=gauss(A,b)Error!Pleaseinputagain!>>A=[123000456];>>b=[3711];>>[xLUIPP]=gauss(A,b)Theequationsha