24小时热门版块排行榜    

查看: 287  |  回复: 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 的主题更新
信息提示
请填处理意见