| 查看: 3014 | 回复: 14 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
fortran 随机数 每次运行都是一样的！
|
||
|
如题 fortran 随机数 每次运行都是一样的！ call random_seed () call random_number (rd); 由于计算的时间很短，运行起来每次还是一样的！ 大家怎么忙解决？ |
回复此楼» 猜你喜欢
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
孩子确诊有中度注意力缺陷
已经有6人回复
-
2026博士申请-功能高分子，水凝胶方向
已经有6人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
-
请问2026国家基金面上项目会启动申2停1吗
已经有5人回复
-
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
我们都是大作家
已经有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