24小时热门版块排行榜    

查看: 348  |  回复: 1

wdkyl

木虫 (初入文坛)

[求助] 解释一下这段程序

For[j = 1, j <= n + 1, j++,
  For[i = 1, i < 400, i++,
   x1 = I 2 mu Sin[omiga i h] Sum[
       y[[b, i]] Exp[-I (rh[] - rh[[j]]) i h] Sum[(-n/2 + a - 1) g[
            j][[a]] g[[a]], {a, 1, n + 1}], {b, 1, n + 1}] // N;
   x2 = I 2 mu Sin[
       omiga (i + 0.5) h] Sum[(y[[b, i]] +
          0.5 h x1) Exp[-I (rh[] - rh[[j]]) (i +
            0.5) h] Sum[(-n/2 + a - 1) g[j][[a]] g[[a]], {a, 1,
          n + 1}], {b, 1, n + 1}] // N;
   x3 = I 2 mu Sin[
       omiga (i + 0.5) h] Sum[(y[[b, i]] +
          0.5 h x2) Exp[-I (rh[] - rh[[j]]) (i +
            0.5) h] Sum[(-n/2 + a - 1) g[j][[a]] g[[a]], {a, 1,
          n + 1}], {b, 1, n + 1}] // N;
   x4 = I 2 mu Sin[
       omiga (i + 1) h] Sum[(y[[b, i]] +
          h x3) Exp[-I (rh[] - rh[[j]]) (i + 1) h] Sum[(-n/2 + a -
            1) g[j][[a]] g[[a]], {a, 1, n + 1}], {b, 1, n + 1}] //
     N;
   y[[j, i + 1]] = y[[j, i]] + h/6 (x1 + 2 x2 + 2 x3 + x4 ) // N]];
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
wdkyl: 金币+5, ★★★★★最佳答案, 很有用,谢了,。 2013-10-11 12:32:12
大约是4阶龙格库塔。
你可以找徐士良的Fortran常用算法程序集对照看看,如果你能读Fortran的话。
2楼2013-10-11 12:13:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wdkyl 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 7lpolszZVXgi 2026-08-14 6/300 2026-08-15 04:21 by 4wMiSEwB6436
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 HFw0lei2R37i 2026-08-14 4/200 2026-08-15 04:17 by 4wMiSEwB6436
[找工作] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 02:21 by 4wMiSEwB6436
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 HFw0lei2R37i 2026-08-14 7/350 2026-08-15 00:40 by 4wMiSEwB6436
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-14 22:32 by 4wMiSEwB6436
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜? +5 Ldrop2023 2026-08-13 5/250 2026-08-14 18:48 by ssxclkj
[基金申请] filecode +6 cratir 2026-08-14 10/500 2026-08-14 18:29 by 笑叹辞穷
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] FileCode能看出啥? +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +10 家与远方 2026-08-10 15/750 2026-08-14 02:08 by 绵羊哥哥
[硕博家园] 一作与独作在应聘高校教师时区别大吗 +3 mbygzh 2026-08-08 4/200 2026-08-13 19:31 by 龙-樱
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
[基金申请] 2026国自然放榜时间 +9 布布和一二 2026-08-08 9/450 2026-08-10 11:22 by xxxx2020
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
信息提示
请填处理意见