应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 数学 » 计算数学 » 小弟求教几个程序-关于迭代法的
81/1返回列表
查看: 1059  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

duinichixin

金虫 (著名写手)

[求助] 小弟求教几个程序-关于迭代法的 已有2人参与

小弟编写了Table4.1SOR中的r=0.01及n=8的程序，现有如下几个疑问：1、我运行出it为8，cpu=0.042，w(exp)=1.02，为什么与作者不一样？2、作者终止条件是F范数，我的是2范数，应该怎么修改？3.当n=64时出现‘Out of memory. Type HELP MEMORY for your options.’请问是我程序太复杂了吗？
注：test为确定w(exp)程序，SOR为调用程序，test2为根据w(exp)计算it程序，各位大神不吝赐教。
test.m:
n=8;
r=0.01;
a=ones(n,1);
b=ones(n-1,1);
I=eye(n);
MM=2*diag(a)-diag(b,-1)-diag(b,1);
N=0.5*diag(b,-1)-0.5*diag(b,1);
A=MM+2*r*N+100*I/(n+1);
B=A;
X=rand(n,n);
F=A*X+X*B;
E=kron(I,A)+kron(B',I);
b=F(;
%x=E\b;
x0=b;
ww=0.01:0.01:1.99;
D=diag(diag(E));    %求E的对角矩阵
L=-tril(E,-1);      %求E的下三角矩阵
U=-triu(E,1);       %求E的上三角矩阵
for i=1:length(ww)
    w=ww(i);
    B=inv(D-L*w)*((1-w)*D+w*U);
p(i)=max(max(abs(eig(B))));
%plot(ww,p);
[x,n1]=SOR(E,b,x0,w);
mm(i)=n1;
end
plot(ww,mm);
Xe=reshape(x,n,n);
errror=norm((Xe-X),2)

SOR.m:
function [x,n1]=SOR(E,b,x0,w,eps,M)

if nargin==4
    eps=1.0e-6;
    M=2000;
elseif nargin<4
    error
    return
elseif nargin==5
    M=200;
end
if(w<=0 || w>=2)    %收敛条件要求
    error;
    return;
end
D=diag(diag(E));    %求E的对角矩阵
L=-tril(E,-1);      %求E的下三角矩阵
U=-triu(E,1);       %求E的上三角矩阵
B=inv(D-L*w)*((1-w)*D+w*U);
f=w*inv((D-L*w))*b;
x=B*x0+f;
n1=1;               %迭代次数
%迭代过程
while norm(x-x0)>=eps
    x0=x;
    x=B*x0+f;
    n1=n1+1;
    if(n1>=M)
        disp('Warining:迭代次数太多，可能不收敛！');
        return;
    end
end

test2.m
w=1.02
n=8;
r=0.01;
a=ones(n,1);
b=ones(n-1,1);
I=eye(n);
M=2*diag(a)-diag(b,-1)-diag(b,1);
N=0.5*diag(b,-1)-0.5*diag(b,1);
A=M+2*r*N+100*I/(n+1);
B=A;
X=rand(n,n);
F=A*X+X*B;
E=kron(I,A)+kron(B',I);
b=F(;
%x=E\b;
x0=b;
[x,n1]=SOR(E,b,x0,w)
Xe=reshape(x,n,n);
errror=norm((Xe-X),2)

小弟求教几个程序-关于迭代法的
1.png


小弟求教几个程序-关于迭代法的-1
2.png
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
辉煌在拼搏之后
1楼 2015-01-11 18:34:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

duinichixin

金虫 (著名写手)
b=F(，打出来有点错误
赞一下 回复此楼
辉煌在拼搏之后
2楼2015-01-11 18:35:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

duinichixin

金虫 (著名写手)
引用回帖:
2楼: Originally posted by duinichixin at 2015-01-11 18:35:51
b=F(，打出来有点错误

括号里面是冒号，谢谢，表示把矩阵拉长
赞一下 回复此楼
辉煌在拼搏之后
3楼2015-01-11 18:37:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mathstudy

金虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
试试  稀疏矩阵的命令；比如sparse
赞一下 回复此楼
4楼2015-01-11 18:42:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

duinichixin

金虫 (著名写手)
引用回帖:
4楼: Originally posted by mathstudy at 2015-01-11 18:42:26
试试  稀疏矩阵的命令；比如sparse

加上sparse有区别吗？
赞一下 回复此楼
辉煌在拼搏之后
5楼2015-01-11 18:57:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zaq123321

专家顾问 (著名写手)

【答案】应助回帖

感谢参与，应助指数 +1
Chang your 2 norm to frobenius norm by replacing 2 with fro. Test it to make sure it works. U don't need to care about cpu time in the testing since your computer is different with his.  Your computer memory may be not big enough to run n=64 case. Otherwise check whether there is some place to adjust your memory allocation in your code. Good luck

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
小木虫给我温暖，给我希望，爱就要爱小木虫。
6楼2015-01-11 21:30:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

duinichixin

金虫 (著名写手)
引用回帖:
6楼: Originally posted by zaq123321 at 2015-01-11 21:30:40
Chang your 2 norm to frobenius norm by replacing 2 with fro. Test it to make sure it works. U don't need to care about cpu time in the testing since your computer is different with his.  Your compute ...

thank you,I will try it again
赞一下 回复此楼
辉煌在拼搏之后
7楼2015-01-12 08:25:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mathstudy

金虫 (正式写手)
引用回帖:
5楼: Originally posted by duinichixin at 2015-01-11 18:57:32
加上sparse有区别吗？...

你试试，有很大区别的
赞一下 回复此楼
8楼2015-01-12 09:04:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 duinichixin 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 289求调剂 +7 硕星赴 2026-03-23 7/350 2026-03-24 19:10 by 了了了了。。
[考研] 材料专硕找调剂 +5 哈哈哈吼吼吼哈 2026-03-23 5/250 2026-03-24 19:07 by 了了了了。。
[考研] 0805 316求调剂 +4 大雪深藏 2026-03-18 4/200 2026-03-24 17:34 by dick_runner
[考研] 求调剂 +6 研研，接电话 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[考研] 一志愿211 初试270分 求调剂 +5 谷雨上岸 2026-03-23 6/300 2026-03-24 16:32 by laoshidan
[考研] 材料与化工328分调剂 +4 。，。，。，。i 2026-03-23 4/200 2026-03-24 11:03 by 544594351
[考研] 07化学280分求调剂 +4 722865 2026-03-23 4/200 2026-03-24 00:01 by chixmc
[考研] 一志愿南京理工大学085701资源与环境302分求调剂 +5 葵梓卫队 2026-03-18 7/350 2026-03-23 16:26 by lingjue
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[考研] 一志愿 西北大学 ，070300化学学硕，总分287，双非一本，求调剂。 +3 晨昏线与星海 2026-03-20 3/150 2026-03-22 16:00 by ColorlessPI
[考研] 一志愿北京化工大学070300 学硕336求调剂 +5 vv迷 2026-03-21 8/400 2026-03-22 14:20 by ColorlessPI
[考研] 297求调剂 +3 喜欢还是不甘心 2026-03-20 3/150 2026-03-21 18:33 by 学员8dgXkO
[考研] 311求调剂 +3 勇敢的小吴 2026-03-20 3/150 2026-03-21 17:40 by ColorlessPI
[考研] 296求调剂 +4 www_q 2026-03-20 4/200 2026-03-21 17:26 by 学员8dgXkO
[考研] 265求调剂 +12 梁梁校校 2026-03-19 14/700 2026-03-21 13:38 by lature00
[考研] 华东师范大学-071000生物学-293分-求调剂 +3 研究生何瑶明 2026-03-18 3/150 2026-03-21 01:30 by JourneyLucky
[考研] 294求调剂材料与化工专硕 +15 陌の森林 2026-03-18 15/750 2026-03-20 23:28 by JourneyLucky
[考研] 317求调剂 +5 申子申申 2026-03-19 9/450 2026-03-20 22:26 by JourneyLucky
[考研] 329求调剂 +9 想上学吖吖 2026-03-19 9/450 2026-03-20 22:01 by luoyongfeng
[考研] 295复试调剂 +8 简木ChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
信息提示
关闭
请填处理意见
关闭