[心得] 使用亂數應注意的事項
如下，在很短的時間內，重複
呼叫 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
推
10/20 11:52, , 1F
10/20 11:52, 1F
→
10/20 11:52, , 2F
10/20 11:52, 2F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
1
2
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章