24小时热门版块排行榜    

Znn3bq.jpeg
查看: 919  |  回复: 5

jydtjm

新虫 (初入文坛)

[求助] 关于Newton-pcg法解方程的编程思路 已有1人参与

先拜谢,用Newton-pcg法解方程,用MATLAB编程,编程主框架应该如何写???有哪位大神可以帮忙解答,谢谢,非常感谢,因为目前只有这么多金币,请懂这一方面的大神赐教,再次感谢!!!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jydtjm

新虫 (初入文坛)

求解线性方程组的newton-pcg并行算法,即二次迭代法,在newton法的每一步迭代中,采用pcg法求解newton方程组,用MATLAB编程,编程主框架应该如何写???有哪位大神可以帮忙解答,谢谢,非常感谢
2楼2015-03-30 15:54:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wurongjun

专家顾问 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
以前有人问过这个!
再给你贴一下:
function [x,val,k]=frcg(fun,gfun,x0)
% 功能: 用FR共轭梯度法求解无约束问题: min f(x)
%输入: x0是初始点, fun, gfun分别是目标函数和梯度
%输出: x, val分别是近似最优点和最优值, k是迭代次数.
maxk=5000; %最大迭代次数
rho=0.6;sigma=0.4;
k=0;epsilon=1e-4;
n=length(x0);
while(k<maxk)
g=feval(gfun,x0); %计算梯du
itern=k-(n+1)*floor(k/(n+1));
itern=itern+1;
%计算搜索方向
if(itern==1)
d=-g;
else
beta=(g'*g)/(g0'*g0);
d=-g+beta*d0; gd=g'*d;
if(gd>=0.0)
d=-g;
end
end
if(norm(g)<epsilon),break;end %检验终止条件
m=0;mk=0;
while(m<20) %Armijo搜索
if(feval(fun,x0+rho^m*d)<feval(fun,x0)+sigma*rho^m*g'*d)
mk=m;break;
end
m=m+1;
end
x0=x0+rho^mk*d;
val=feval(fun,x0);
g0=g;d0=d;
k=k+1;
end
x=x0;
val=feval(fun,x);
function g=gfun(x)
g=[400*x(1)*(x(1)^2-x(2))+2*(x(1)-1),-200*(x(1)^2-x(2))]';
function f=fun(x)
f=100*(x(1)^2-x(2))^2+(x(1)-1)^2;
善恶到头终有报,人间正道是沧桑.
3楼2015-03-30 17:16:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jydtjm

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by wurongjun at 2015-03-30 17:16:29
以前有人问过这个!
再给你贴一下:
function =frcg(fun,gfun,x0)
% 功能: 用FR共轭梯度法求解无约束问题: min f(x)
%输入: x0是初始点, fun, gfun分别是目标函数和梯度
%输出: x, val分别是近似最优点和最优值, ...

您好,首先感谢您的回复,但是恕我愚昧,实在看不出这回答与我这问题有何联系,请指教!
4楼2015-03-30 21:21:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wurongjun

专家顾问 (职业作家)

引用回帖:
4楼: Originally posted by jydtjm at 2015-03-30 21:21:45
您好,首先感谢您的回复,但是恕我愚昧,实在看不出这回答与我这问题有何联系,请指教!...

Sorry!
粘错啦!
善恶到头终有报,人间正道是沧桑.
5楼2015-03-31 08:26:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jydtjm

新虫 (初入文坛)

引用回帖:
5楼: Originally posted by wurongjun at 2015-03-31 08:26:17
Sorry!
粘错啦!...

没事,谢谢!请问您知道这种解法的相关程序吗?
6楼2015-03-31 14:57:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jydtjm 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿华中农业071010,320求调剂 +11 困困困困坤坤 2026-04-14 12/600 2026-04-15 18:58 by zhuwenxu
[考研] 生物学调剂 +9 纸扇zhishan 2026-04-13 9/450 2026-04-15 18:28 by AN流800
[考研] 284求调剂 +20 让我上岸吧阿西 2026-04-09 20/1000 2026-04-15 14:40 by 黑科技花岗岩
[考研] 297,工科调剂? +7 河南农业大学-能 2026-04-14 7/350 2026-04-15 13:26 by 西北望—风沙
[考研] 求调剂学校 +13 不会吃肉 2026-04-13 15/750 2026-04-15 12:49 by 西北望—风沙
[考研] 材料工程281还有调剂机会吗 +43 xaw. 2026-04-11 44/2200 2026-04-15 12:46 by 西北望—风沙
[考研] 289 分105500药学专硕求调剂(找B区学校) +3 白云123456789 2026-04-13 3/150 2026-04-15 12:42 by 西北望—风沙
[考研] 085400电子信息类(川大控制工程)求调剂可跨专业 求老师联系 +6 626776879 2026-04-08 6/300 2026-04-14 20:09 by gwjxiaolang
[考研] 药学305求调剂 +10 玛卡巴卡boom 2026-04-10 10/500 2026-04-14 15:55 by zs92450
[考研] 314求调剂 +24 wakeluofu 2026-04-09 25/1250 2026-04-13 08:58 by lhj2009
[考研] 344 材料专业 求调剂211 无地域要求 +8 hualkop 2026-04-11 8/400 2026-04-12 22:24 by fqwang
[考研] 0854调剂 +12 长弓傲 2026-04-09 13/650 2026-04-12 09:56 by 逆水乘风
[考研] 求调剂,一志愿材料科学与工程985,365分, +8 材化李可 2026-04-11 10/500 2026-04-12 08:42 by 852137818
[考研] 085600材料与化工329分求调剂 +16 叶zilin 2026-04-10 16/800 2026-04-11 11:04 by may_新宇
[考研] 0854调剂 +4 长弓傲 2026-04-09 4/200 2026-04-11 09:18 by 猪会飞
[考研] 中科院总分315求调剂 +8 lallalh 2026-04-09 8/400 2026-04-10 19:30 by dick_runner
[考研] 298求调剂 +13 钉叮咚冬瓜 2026-04-09 13/650 2026-04-10 15:49 by jiajinhpu
[考研] 本科西工大 0856 324求调剂 +10 wysyjs25 2026-04-09 11/550 2026-04-10 08:37 by 5268321
[考研] 本科211 工科085400 280分求调剂 可跨专业 +3 LZH(等待调剂中 2026-04-09 3/150 2026-04-09 21:29 by wutongshun
[考研] 化学工程与技术专业一志愿哈工程 291分B区 国家级大创负责人 有一作论文 +13 Emmy~ 2026-04-09 13/650 2026-04-09 14:47 by only周
信息提示
请填处理意见