《矩阵与数值分析》作业.docVIP

矩阵与数值分析实验报告 学 院(系)：建设与工程学部 专 业： 桥梁与隧道工程 学 生 姓 名： 周世轩 学 号： 指 导 教 师： 董波 完 成 日 期： 2012-12-12 大连理工大学 Dalian University of Technology 1.给定n阶方程组，其中 ， 则方程组有解。对和，分别用Gauss消去法和列主元消去法解方程组，并比较计算结果。 结果与分析： (1) n ?10，Gauss 消去法所得结果为： (1,1,1,1,0.999999999999998,1,0.999999999999993,1.00000000000001,0.999999999999979, 1.00000000000003)T；Gauss 列主元消去法结果为：(1,1,1,1,1,1,1,1,1,1)T； (2) n ??84，Gauss 消去法所得解为： (1,1,1,1…-125821439,234866688.999999,-402628606.999999,536838144.999998)T； Gauss 列主元消去法所得结果为： (1,1,1,1…1.00000065565109,0.999998776117961,1.0000020980835,0.999997202555339)T； 结果分析：n=10，Gauss 消去法计算结果存在较小的偏差，Gauss 列主元消去法计算结果 为准确值；n=84，Gauss 消去法计算结果严重偏离准确值，Gauss 列主元消去法存在较小 的偏差。 在n较小时，两种方法均能得到正确解，当n较大后，Gauss消去法计算结果严重偏离准确值成为错解，列主元消去法依然能得到正确解。这是因为Gauss消去法中有小主元做除数，在计算过程中的舍入误差会对解产生极大影响，从而导致错误。列主元消去法则避免了这种情况。 Gauss消去法： 编程function x=GS(n) A=[];b=[]; for i=1:n-1 A(i,i)=6; A(i,i+1)=1; A(i+1,i)=8; b(i)=15; end A(n,n)=6;b(1)=7;b(n)=14;b=b; for k=1:n-1 for i=k+1:n m(i,k)=A(i,k)/A(k,k); A(i,k:n)=A(i,k:n)-m(i,k)*A(k,k:n); b(i)=b(i)-m(i,k)*b(k); end end b(n)=b(n)/A(n,n); for i=n-1:-1:1 b(i)=(b(i)-sum(A(i,i+1:n).*b(i+1:n)))/A(i,i); end clear x; x=b; disp( AX=b的解x是) end 列主元消去法： 编程function x=GLZX(n) A=[];b=[]; eps=10^-2; for i=1:n-1 A(i,i)=6; A(i,i+1)=1; A(i+1,i)=8; b(i)=15; end A(n,n)=6;b(1)=7;b(n)=14;b=b; for k=1:n-1 [mainElement,index]=max(abs(A(k:n,k))); index=index+k-1;%index if abs(mainElement)eps disp(列元素太小！！); break; elseif indexk temp=A(k,:);temp1=b(k); A(k,:)=A(index,:);b(k)=b(index); A(index,:)=temp;b(index)=temp1; end for i=k+1:n m(i,k)=A(i,k)/A(k,k);%A(k,k) ; A(i,k:n)=A(i,k:n)-m(i,k)*A(k,k:n); b(i)=b(i)-m(i,k)*b(k); end end b(n)=b(n)/A(n,n); for i=n-1:-1:1 b(i)=(b(i)-sum(A(i,i+1:n).*b(i+1:n)))/A(i,i); end clear x; x=b; disp(AX=b的解x是) end 2. 设有方程组，其中， 选取不同的初始向量和不同的右端向量，给定迭代误差要求，