| 查看: 3593 | 回复: 14 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
fortran 随机数 每次运行都是一样的！
|
||
|
如题 fortran 随机数 每次运行都是一样的！ call random_seed () call random_number (rd); 由于计算的时间很短，运行起来每次还是一样的！ 大家怎么忙解决？ |
回复此楼» 猜你喜欢
什么时候开奖？
已经有11人回复
-
范进中举一文的中心思想
已经有6人回复
-
建议基金发布提前给出明确的时间点
已经有14人回复
-
2026国自然函评费到账
已经有17人回复
-
让我中一个面上吧！
已经有15人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有5人回复
-
跳槽后在研项目怎么办？
已经有10人回复
-
今天放榜吗？
已经有16人回复
-
93BebMhtakh前后11位开头都是大写
已经有8人回复
-
只有每年这种时候来逛逛小木虫
已经有26人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 我们都是大作家
已经有12人回复
- 测试POSCAR的脚本不运行
已经有10人回复
- fortran程序运行黑框闪下就消失
已经有5人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【讨论】大家进来说下为什么学matlab
已经有44人回复
3楼2011-09-04 15:07:58
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-09-04 14:56:30
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-09-04 15:29:13
|
你的意思是，你在程序中取了很多随机数，然后，随机数是一样的吗？ 不是一样的的，是我想运行两次希望得到不同的结果 两次分别运行的到结果是一样的 另外，种子与时间有啥关系？你以时间作种吗？ 本来想以时间做种，这样的话 运行两次得到的结果就是不一样的 但是时间太短了，得到的还是一样的， 给段代码看看吧…… do jj=1,5000 do i=1,100000 call random_seed () call random_number (rd) if (rd<=p(1)) THEN ………………………… else if (rd<=p(2) .AND. rd>p(1)) THEN ………………………… else if (rd<=p(3) .AND. rd>p(2)) THEN ………………………… else if (rd<=p(4) .AND. rd>p(3)) THEN ………………………… else if (rd<=p(5) .AND. rd>p(4)) THEN ………………………… else ………………………… end if end do std=tdx*tdx+tdy*tdy; write(10,130) tt,std; end do |
5楼2011-09-04 15:58:02
40