| 查看: 3599 | 回复: 14 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
fortran 随机数 每次运行都是一样的！
|
|||
|
如题 fortran 随机数 每次运行都是一样的！ call random_seed () call random_number (rd); 由于计算的时间很短，运行起来每次还是一样的！ 大家怎么忙解决？ |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有6人回复
-
明天应该可查了！？
已经有5人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有7人回复
-
没有任何消息-是不是就凉了
已经有8人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
人气不行了
已经有10人回复
-
我面上完蛋了
已经有10人回复
-
能否退出参与的面上项目解除限项
已经有24人回复
-
filecode，4个jtjc了
已经有17人回复
-
2026国自然函评费到账
已经有19人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 我们都是大作家
已经有12人回复
- 测试POSCAR的脚本不运行
已经有10人回复
- fortran程序运行黑框闪下就消失
已经有5人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【讨论】大家进来说下为什么学matlab
已经有44人回复
|
你的意思是，你在程序中取了很多随机数，然后，随机数是一样的吗？ 不是一样的的，是我想运行两次希望得到不同的结果 两次分别运行的到结果是一样的 另外，种子与时间有啥关系？你以时间作种吗？ 本来想以时间做种，这样的话 运行两次得到的结果就是不一样的 但是时间太短了，得到的还是一样的， 给段代码看看吧…… 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
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-09-04 14:56:30
3楼2011-09-04 15:07:58
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-09-04 15:29:13
20