24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 303  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 297工科调剂? +14 河南农业大学-能 2026-04-13 15/750 2026-04-15 13:25 by 黑科技矿业
[考研] 求助调剂,跨调 +18 X十甫寸Y 2026-04-11 19/950 2026-04-14 19:26 by Art1977
[考研] 通信工程求调剂!!! +4 zlb770521 2026-04-14 4/200 2026-04-14 18:19 by lbsjt
[考研] 材料相关专业344求调剂双非工科学校或课题组 +21 hualkop 2026-04-12 22/1100 2026-04-14 17:44 by lhj2009
[考研] 26药学专硕105500求调剂 +6 喽哈加油 2026-04-13 6/300 2026-04-14 16:40 by zhouxiaoyu
[考研] 材料专业344求调剂 +17 hualkop 2026-04-10 22/1100 2026-04-14 16:21 by sxdj2
[考研] 各位老师好,求调剂,本科211,一志愿天津大学生物与医药学硕,差两名录取。 +11 路六六jjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[考研] 一志愿中南大学 0855 机械 286 求调剂 +11 不会吃肉 2026-04-12 11/550 2026-04-13 21:59 by bljnqdcc
[考研] 一志愿厦大生物学332求调剂 +11 池池池池池池 2026-04-08 11/550 2026-04-13 14:10 by 科研论
[考研] 一志愿085802 323分求调剂 +13 drizzle_9 2026-04-12 14/700 2026-04-13 10:26 by Faiz5552
[教师之家] 山东双非院校考核超级无底线,领导幸灾乐祸,教师遭殃恐 +3 qut2026 2026-04-11 7/350 2026-04-12 20:24 by qut2026
[考研] 一志愿华中农微生物,288分,三年实验经历 +11 代fish 2026-04-09 11/550 2026-04-12 10:21 by Hayaay
[找工作] 山东高校教师考核超级无底线,员工过不下去啦 +4 qut2026 2026-04-09 9/450 2026-04-12 00:54 by qut2026
[考研] 296求调剂 +6 汪!?! 2026-04-09 6/300 2026-04-11 11:25 by zhq0425
[考研] 初试261 +3 Asht少 2026-04-10 6/300 2026-04-10 16:38 by Asht少
[考研] 282,电气工程专业,求调剂,不挑专业 +9 jggshjkkm 2026-04-10 9/450 2026-04-10 14:55 by 逆水乘风
[考研] 江苏大学 工科调剂 捡漏 +3 Evan_Liu 2026-04-09 5/250 2026-04-10 10:22 by Evan_Liu
[考研] 已调剂 +18 柴郡猫_ 2026-04-09 19/950 2026-04-09 22:10 by 柴郡猫_
[考研] 一志愿中科院105500专业总分315求调剂 +6 lallalh 2026-04-09 7/350 2026-04-09 17:51 by lallalh
[考研] 349学科化学045106求调剂,化学类都可以 +8 保好懂懂 2026-04-08 8/400 2026-04-09 14:03 by xulei3024
信息提示
请填处理意见