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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 大侠，帮我解释下迭代准则的程序描写，
132/2返回列表上一页12
查看: 1582  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

涂涂木

金虫 (正式写手)
引用回帖:
楼: 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

至尊木虫 (职业作家)

【答案】应助回帖

★
余泽成(金币+1): 谢谢参与应助！ 2011-12-31 11:02:16
很明显你连个完整的循环都没有贴出来，我们怎么看，呵呵……
赞一下(1人) 回复此楼
12楼2011-12-15 13:27:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

涂涂木

金虫 (正式写手)
引用回帖:
楼: 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的回帖
相关版块跳转 我要订阅楼主 涂涂木 的主题更新
132/2返回列表上一页12
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 看来今天不会放榜了？ +8 chengyan1220 2026-08-21 9/450 2026-08-21 15:38 by dcqxinyang
[基金申请] 让我中一个面上吧！ +11 大萍1987 2026-08-20 13/650 2026-08-21 14:48 by 20120902066
[基金申请] 人气不行了 +7 fansofjerry 2026-08-21 7/350 2026-08-21 14:13 by Vivilian
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +15 医学老男孩 2026-08-20 18/900 2026-08-21 13:46 by 医学老男孩
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 8/400 2026-08-21 12:31 by 酷酷墨镜
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 今天基金会出结果吗？20260819 +15 kkkl_v 2026-08-19 16/800 2026-08-21 11:22 by 365372687
[基金申请] 科研孤儿太难了 +15 我4大白菜 2026-08-20 16/800 2026-08-21 11:07 by yming1319
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 时间戳今天，20号变了 +4 archvillain 2026-08-20 4/200 2026-08-21 08:10 by gatelove
[基金申请] 今天系统多次维护，明天很可能放榜！ +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 时间戳变了，能看出什么问题？ +18 基诺咪客 2026-08-17 23/1150 2026-08-20 17:19 by Godzela
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
信息提示
关闭
请填处理意见
关闭