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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】此程序没有错误，怎么运行不出来？
11/1返回列表
查看: 1128  |  回复: 6
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

ykwang

金虫 (正式写手)
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
nono2009(金币+2):鼓励应助 2010-11-25 07:41:11
zyj8119(金币+2):谢谢兄台认真回复。。。 2010-11-25 08:27:59
zyj8119(金币+10, 程序强帖+1):谢谢跟进。 2010-12-14 04:22:10
引用回帖:
Originally posted by zyj8119 at 2010-11-24 23:49:15:

我就是想用Z的新数值减去Z的旧数值，然后只要这个差值达到收敛标准，就使得循环跳出，其中100000是一个约数，我觉得循环这么多步，应该收敛了，但是假如还没有收敛，怎么办？

因为事先不知道要经过多少次迭代才能收敛，所以不能采用数组方式。其实只需要两个变量即可实现这一迭代过程：一个为Old，另一个New，并将New的计算过程用一个子程序CalcFun（各种变量）来实现。有关的伪代码如下：

     Old = 0D0                                                   给Old赋初值
10    CALL CalcFun（各种变量，New）             计算结果由New返回
     IF（ABS（New-Old）.LT.1E-6）GOTO 20        收敛后退出
     Old = New                                                 更新Old
       GOTO 10                                                    构成迭代过程
20   WRITE（*，*）‘Converged！'
赞一下(2人) 回复此楼
7楼2010-11-25 01:08:10
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

科研从小木虫开始，人人为我，我为人人
相关版块跳转 我要订阅楼主 zyj8119 的主题更新
11/1返回列表
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭