版块导航: 正在加载中...

客户端APP下载

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

2

涂涂木

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 169.3
散金: 7
红花: 1
帖子: 322
在线: 38.6小时
虫号: 681538
注册: 2008-12-25
性别: MM
专业: 催化化学

引用回帖:

楼: Originally posted by snoopyzhao at 2011-12-15 10:58:45:
你的程序中 EPS = SUM(DABS(DELTA(:NCOMP)/P0(:NCOMP) )) 不就是在计算 EPS 吗？

DEPS 为啥是双精度 EPS 啊

，它明显是 EPSPREV 与 EPS 之差的绝对值啊……

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

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

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★
余泽成(金币+1): 谢谢参与应助！ 2011-12-31 11:02:16

很明显你连个完整的循环都没有贴出来，我们怎么看，呵呵……

赞一下(1人)

12楼2011-12-15 13:27:57

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

涂涂木

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 169.3
散金: 7
红花: 1
帖子: 322
在线: 38.6小时
虫号: 681538
注册: 2008-12-25
性别: MM
专业: 催化化学

引用回帖:

楼: Originally posted by snoopyzhao at 2011-12-15 10:58:45:
你的程序中 EPS = SUM(DABS(DELTA(:NCOMP)/P0(:NCOMP) )) 不就是在计算 EPS 吗？

DEPS 为啥是双精度 EPS 啊

，它明显是 EPSPREV 与 EPS 之差的绝对值啊……

兄弟，帮我看下关于simpson积分的程序描述，我已经在提问页面了，帮帮忙啊，谢谢了，兄弟

向前看

13楼2011-12-15 16:22:42

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

相关版块跳转我要订阅楼主涂涂木的主题更新

2