| 查看: 1236 | 回复: 12 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
大侠，帮我解释下迭代准则的程序描写，
|
|||
|
P0(I) = P0(I) + DELTA(I) 迭代表达式！ EPS = SUM(DABS(DELTA(:NCOMP)/P0(:NCOMP) )) 迭代准则！ DEPS= DABS((EPSPREV-EPS)) ITER = ITER + 1 EPSPREV = EPS ENDDO LOOP1A IF ( ITER >= MAXITER ) THEN WRITE(*,*) 'MAXIMUM ITERATIONS FOR Qi->Pi REACHED' ENDIF 我想问一下，在这个迭代准则里，EPSPREV= EPS 后，原来的EPS等于多少啊，或者能不能告诉我，这个循环进行下去，EPSPREV 和EPS 在每个循环中怎么变换的啊！ |
回复此楼» 猜你喜欢
博士读完未来一定会好吗
已经有6人回复
-
小论文投稿
已经有3人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有9人回复
-
心脉受损
已经有3人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
|
ITER = 1 ; EPS = ONE ; DEPS = ONE ; EPSPREV=ONE P0(I) = P0(I) + DELTA(I) EPS = SUM(DABS(DELTA(:NCOMP)/P0(:NCOMP) )) DEPS= DABS((EPSPREV-EPS)) ITER = ITER + 1 EPSPREV = EPS ENDDO LOOP1A IF ( ITER >= MAXITER ) THEN WRITE(*,*) 'MAXIMUM ITERATIONS FOR Qi->Pi REACHED' ENDIF 我已经糊涂了啊，兄弟，能不能仔细帮我解释下，循环怎么进行下去啊？！！ EPS 是根据SUM(DABS(DELTA(:NCOMP)/P0(:NCOMP) ))获得，是要让EPS尽可能小，这样迭代就终止啊，从 DEPS= DABS((EPSPREV-EPS))中得到 DEPS,这个值有什么用， EPSPREV = EPS，兄弟救救我吧 |
11楼2011-12-15 12:27:29
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-12-15 09:12:37
3楼2011-12-15 09:16:25
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-12-15 09:34:05