| 查看: 583 | 回复: 6 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 最爱花诗雨 的 4 个金币 | |||
最爱花诗雨金虫 (正式写手)
穷鬼
|
[交流]
【求助】MATLAB的求解问题
|
||
求助:matlab 中的jacobi程序和松弛迭代的程序 [ Last edited by wuguocheng on 2009-10-21 at 20:20 ] |
回复此楼» 猜你喜欢
极限拉扯，如何抉择
已经有15人回复
-
申请科研项目纯靠实力能成功吗？
已经有8人回复
-
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
最爱花诗雨
金虫 (正式写手)
穷鬼
- 应助: 4 (幼儿园)
- 贵宾: 0.804
- 金币: 1088.2
- 散金: 250
- 红花: 3
- 帖子: 473
- 在线: 65.7小时
- 虫号: 643243
- 注册: 2008-11-01
- 专业: 生物化学
2楼2009-10-22 18:34:57
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 仿真EPI: 1
- 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555230
- 散金: 27828
- 红花: 2148
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
3楼2009-10-22 19:31:57
★ ★ ★
nono2009(金币+2,VIP+0):谢谢应助。欢迎常来交流。 10-22 20:07
最爱花诗雨(金币+1,VIP+0):谢谢支持 10-27 19:15
nono2009(金币+2,VIP+0):谢谢应助。欢迎常来交流。 10-22 20:07
最爱花诗雨(金币+1,VIP+0):谢谢支持 10-27 19:15
|
function [x,n]=jacobi(A,b,x0,eps,varargin) if nargin==3 eps= 1.0e-6; M = 200; elseif nargin<3 error return elseif nargin ==5 M = varargin{1}; end D=diag(diag(A)); %求A的对角矩阵 L=-tril(A,-1); %求A的下三角阵 U=-triu(A,1); %求A的上三角阵 B=D\(L+U); f=D\b; x=B*x0+f; n=1; %迭代次数 while norm(x-x0)>=eps x0=x; x=B*x0+f; n=n+1; if(n>=M) disp('Warning: 迭代次数太多，可能不收敛！'); return; end end |
4楼2009-10-22 20:04:16
★ ★ ★
nono2009(金币+1,VIP+0):再奖1个！ 10-22 20:08
最爱花诗雨(金币+2,VIP+0):正是我要找的sor迭代，不知道能不能调用？ 10-23 18:02
nono2009(金币+1,VIP+0):再奖1个！ 10-22 20:08
最爱花诗雨(金币+2,VIP+0):正是我要找的sor迭代，不知道能不能调用？ 10-23 18:02
|
function [x,n]=SOR(A,b,x0,w,eps,M) if nargin==4 eps= 1.0e-6; M = 200; elseif nargin<4 error return elseif nargin ==5 M = 200; end if(w<=0 || w>=2) error; return; end D=diag(diag(A)); %求A的对角矩阵 L=-tril(A,-1); %求A的下三角阵 U=-triu(A,1); %求A的上三角阵 B=inv(D-L*w)*((1-w)*D+w*U); f=w*inv((D-L*w))*b; x=B*x0+f; n=1; %迭代次数 while norm(x-x0)>=eps x0=x; x =B*x0+f; n=n+1; if(n>=M) disp('Warning: 迭代次数太多，可能不收敛！'); return; end end |
5楼2009-10-22 20:04:57
6楼2009-10-22 20:06:30
★ ★ ★ ★
nono2009(金币+2,VIP+0):谢谢分享！ 10-22 20:27
最爱花诗雨(金币+1,VIP+0):谢谢~~~ 10-23 18:02
最爱花诗雨(金币+1,VIP+0):3Q 10-27 19:15
nono2009(金币+2,VIP+0):谢谢分享！ 10-22 20:27
最爱花诗雨(金币+1,VIP+0):谢谢~~~ 10-23 18:02
最爱花诗雨(金币+1,VIP+0):3Q 10-27 19:15
|
function [x,n]=SSOR(A,b,x0,w,eps,M) if nargin==4 eps= 1.0e-6; M = 200; elseif nargin<4 error return elseif nargin ==5 M = 200; end if(w<=0 || w>=2) error; return; end D=diag(diag(A)); %求A的对角矩阵 L=-tril(A,-1); %求A的下三角阵 U=-triu(A,1); %求A的上三角阵 B1=inv(D-L*w)*((1-w)*D+w*U); B2=inv(D-U*w)*((1-w)*D+w*L); f1=w*inv((D-L*w))*b; f2=w*inv((D-U*w))*b; x12=B1*x0+f1; x =B2*x12+f2; n=1; %迭代次数 while norm(x-x0)>=eps x0=x; x12=B1*x0+f1; x =B2*x12+f2; n=n+1; if(n>=M) disp('Warning: 迭代次数太多，可能不收敛！'); return; end end |
7楼2009-10-22 20:07:12
200