24小时热门版块排行榜    

查看: 347  |  回复: 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.O5.4,科目全,可伽急 +3 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 01:28 by 4wMiSEwB6436
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 22/1100 2026-08-14 23:45 by Noways
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-14 22:32 by 4wMiSEwB6436
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +23 医学老男孩 2026-08-13 49/2450 2026-08-14 20:02 by zhaifei
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +6 majunge000 2026-08-11 8/400 2026-08-14 14:44 by 医学老男孩
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] 关于Filecode分析方法 +9 majunge000 2026-08-10 12/600 2026-08-13 23:20 by iwuli
[基金申请] 静等基金结果 +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
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
信息提示
请填处理意见