| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 810 人关注过本帖
标题:高手求教!!newtonSOR迭代法解非线性方程组
只看楼主 加入收藏
h380843564
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-17
收藏
 问题点数:0 回复次数:1 
高手求教!!newtonSOR迭代法解非线性方程组
我有NewtonSOR迭代法的Matlab程序,但是我不知道怎么用,哪位大虾能帮我解决啊,例如解方程组{x1^2+x2^2-x1,x1^2-x2^2-x2},帮我运行下,把结果写给我,好吗?帮忙啊···
function [r,m]=mulNewtonSOR(F,x0,w,h,l,eps)
if nargin==5
    eps=1.0e-4;
end

n = length(x0);
J = zeros(n,n);
Fx = subs(F,findsym(F),x0);
for i=1:n
    x1 = x0;
    x1(i) = x1(i)+h(i);
    J(:,i) = (subs(F,findsym(F),x1)-Fx)/h(i);
end
D = diag(diag(J));
L = -tril(J-D);
U = -triu(J-D);
inD = inv(D-w*L);
H = inD*(D - w*D+w*L);
Hm = eye(n,n);
for i=1:l-1
    Hm = Hm + power(H,i);
end
dr = w*Hm*inD*Fx';
r = transpose(x0)-dr;                              
m=1;
tol=1;
while tol>eps
    x0=r;   
    Fx = subs(F,findsym(F),x0);
    J = zeros(n,n);
    for i=1:n
        x1 = x0;
        x1(i) = x1(i)+h(i);
        J(:,i) = (subs(F,findsym(F),x1)-Fx)/h(i);
    end
    D = diag(diag(J));
    L = -tril(J-D);
    U = -triu(J-D);
    inD = inv(D-w*L);
    H = inD*(D - w*D+w*L);
    Hm = eye(n,n);
    for i=1:l-1
        Hm = Hm + power(H,i);
    end
    dr = w*Hm*inD*Fx';   
    r = x0-dr;                                 %核心迭代公式
    tol=norm(r-x0);
    m=m+1;
    if(m>100000)                                              %迭代步数控制
        disp('迭代步数太多,可能不收敛!');
        return;
    end
end
搜索更多相关主题的帖子: 方程 newtonSOR 非线性 迭代法 
2010-05-17 18:12
h380843564
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-17
收藏
得分:0 
取x0=[0.8,0.4]的转秩,终止容限e=10的-5次方
2010-05-17 18:14
快速回复:高手求教!!newtonSOR迭代法解非线性方程组
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047353 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved