Re: [問題] 如何加速FindRoot運算速度？
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間11年前 (2013/01/31 11:21)推噓5(5推 0噓 0→)留言5則, 1人參與討論串2/3 (看更多)
※ 引述《suinegoast (想不到暱稱)》之銘言：
: 小弟在研究遇到了一些技術性的瓶頸
: 指令FindRoot求解1200條方程式耗時25秒
: 使用Do迴圈執行60000次上述事情
: 估計費時17天8小時40分鐘
: 請問版上高手是否知道更省時的辦法呢？感激不盡！
Exp[x - a] == y, y^2 == x+b
data = Flatten[Table[{a, b}, {a, 1, 2, 0.1}, {b, 0, 1, 0.1}], 1];
(* 平行運算 *)
ParallelMap[
FindRoot[{Exp[x - #[[1]]] == y,
y^2 == x + #[[2]]}, {{x, 1}, {y, 1}}] &, data]
如果有Lightweight Grid，記得安裝打開，整個實驗室的電腦一起算。
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 106.1.154.80
推
02/04 02:33, , 1F
02/04 02:33, 1F
推
02/04 02:37, , 2F
02/04 02:37, 2F
推
02/04 02:37, , 3F
02/04 02:37, 3F
推
02/04 02:38, , 4F
02/04 02:38, 4F
推
02/04 03:52, , 5F
02/04 03:52, 5F
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
