作者sjgau (sjgau)
看板Fortran
标题[心得] 使用乱数应注意的事项
时间Tue Oct 20 11:39:17 2009
如下，在很短的时间内，重复
呼叫 random_seed(),
会得到 相同的 种子数，
产生相同序列的乱数，
所以，必须写 一个副程式来处理 这个问题。
1 0.2611238
2 0.2611238
3 0.2611238
4 0.2611238
5 0.2611238
6 0.2611238
7 0.2611238
8 0.2611238
9 0.2611238
10 0.2611238
Press any key to continue
program VF1019
implicit none
integer i, j, k
real x, y, z
do i=1, 10
CALL RANDOM_SEED()
CALL RANDOM_NUMBER(x)
print *, i, x
end do
end program VF1019
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.20.178.154
1F：推 souffrance:其实可以不用什麽都用副程式 random seed写个小算式就 10/20 11:52
2F：→ souffrance:能解决了 10/20 11:52