收藏 分享(赏)

雅可比迭代法.doc

上传人:wspkg9802 文档编号:8286780 上传时间:2019-06-18 格式:DOC 页数:4 大小:36.50KB
下载 相关 举报
雅可比迭代法.doc_第1页
第1页 / 共4页
雅可比迭代法.doc_第2页
第2页 / 共4页
雅可比迭代法.doc_第3页
第3页 / 共4页
雅可比迭代法.doc_第4页
第4页 / 共4页
亲,该文档总共4页,全部预览完了,如果喜欢就下载吧!
资源描述

1、设有方程组 12531x042321xx用雅可比迭代法和塞德尔迭代法分别求解此方成组,当 时终止,并4)()1(0| kkx写出相应的迭代法的迭代矩阵1,雅可比迭代法m 文件:function x=jacobi(A,b,P,delta,n)N=length(b);for k=1:nfor j=1:Nx(j)=(b(j)-A(j,1:j-1,j+1:N)*P(1:j-1,j+1:N)/A(j,j);enderr=abs(norm(x-P);P=x;if(err clear all;A=5,2,1;-1,4,2;2,-3,10;b=-12,20,3;P=0,0,0;x=jacobi(A,b,P,1

2、e-4,20)结果:P =-4.00003.00002.0000k =18err =5.3233e-005B = %迭代矩阵0 -0.5000 -0.10000.2000 0 -0.2000-0.4000 0.7500 0x =-4.00003.00002.00002,高斯-塞德尔迭代法m 文件:function x=Seidel(A,b,P,delta,n)N=length(b);for k=1:nfor j=1:Nif j=1x(1)=(b(1)-A(1,2:N)*P(2:N)/A(1,1);elseif j=Nx(N)=(b(N)-A(N,1:N-1)*(x(1:N-1)/A(N,N);

3、elsex(j)=(b(j)-A(j,1:j-1)*x(1:j-1)-A(j,j+1:N)*P(j+1:N)/A(j,j);endenderr=abs(norm(x-P);P=x;if(err clear all;A=5,2,1;-1,4,2;2,-3,10;b=-12,20,3;P=0,0,0;x=Seidel(A,b,P,1e-4,20)结果:P =-4.00003.00002.0000k =9err =4.3642e-005B = %迭代矩阵-0.5000 -0.2000 -0.1000-0.0625 -0.5250 -0.26250.0406 -0.0588 -0.5294x =-4.00003.00002.0000

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 企业管理 > 管理学资料

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报