数分实验一.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数分实验一

石家庄经济学院 实验报告 (学 院)系: 信息工程学院 专 业: 计算机科学与技术 姓 名: 仇经旭 班 级: 4081090301 学 号: 408109070302 任课教师: 罗 毅 《数值分析》实验报告姓名仇经旭学号408109070302日期2010-10-29 1-2节实验室计算机软件技术实验室(152机房) 设备编号78实验题目实验一 用雅可比迭代和高斯赛德尔迭代解方程组 一 实验目的掌握雅可比迭代和高斯赛德尔迭代的基本思想,编程实现雅可比迭代和高斯赛德尔迭代法求解线性方程组的根。二 实验内容1、用雅可比迭代法求方程组8*x1-3*x2+2*x3=20,4*x1+11*x2-x3=33,6*x1+3*x2+12*x3=36的解,要求精确到小数点后三位。(matlab)1)雅可比迭代方法算法: 1.1)适当提供迭代初值{ (X1)} 1.2)按雅可比公式X(k+1)=D-1(L+U)Xk+D-1b(k=0,1,2…) 将老值{Xi(k)}加工成新值{Xi(k+1)} 1.3) 若迭代偏差ek=max|Xi(k+1)-Xi(k)|e 则输出结果终止计算机,否则执行下一步1.4)若迭代次数k未达到最大迭代次数N 则转为步骤(2) 继续迭代,否则输出 失败,标志终止计算机。2)源程序A=[8 -3 2;4 11 -1;6 3 12];B=[20;33;36];Err_user=0.001;N=10;[m,n]=size(A);X=zeros(n,1);k=1;while k=N Xk=X; for i=1:n for j=1:n if i~=j AX(j)=A(i,j)*Xk(j); end end Sum_AX=sum(AX); AX=0; X(i)=(B(i)-Sum_AX)/A(i,i); end E=max(abs(Xk-X)); if EErr_user break; end k=k+1;enddisp(X);disp(k); 3.0003 1.9999 0.9997 9实验结果讨论和分析 本题使用二分法得到的x=1.61803,满足基本要求,题目要求精确到小数点后一位,告诉了本题二分法得应达到得精确度;二分法收敛性很好,收敛速度不快。2、用高斯赛德尔迭代法求方程组8*x1-3*x2+2*x3=20,4*x1+11*x2-x3=33,6*x1+3*x2+12*x3=36的解,要求精确到小数点后三位。(matlab)1)高斯赛德尔迭代方法算法3.1)input n,A,b,e,N 3.2) x[i]-0(i=1,2,…,n) 3.3)k-1 3.4)while(k=N)do(5~11) 3.5)err-0 3.6)for i=1 to n, do(7~9) 3.7)XI-x[i] 3.8) x[i]-(b[i]-∑A[i,j]*x[j])/A[i,i] 3.9) if(err|XI-x[i]|)then err=|XI-x[i]| 4.0) if(erre) then output (x[i],i=1,2,…,n),stop 4.1) k-k+1 4.2)output(“Maximum number of iterations exceeded.”),stop 2)源程序A=[8 -3 2;4 11 -1;6 3 12];B=[20;33;36];Err_user=0.01;N=10;[m,n]=size(A);X=zeros(n,1);k=1;while k=N Xk=X; for i=1:n for j=1:n if i~=j AX(j)=A(i,j)*X(j); end end Sum_AX=sum(AX); AX=0; X(i)=(B(i)-Sum_AX)/A(i,i); end Er=max(abs(Xk-X)); if ErErr_user b

文档评论(0)

jgx3536 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:6111134150000003

1亿VIP精品文档

相关文档