看板 [ Fortran ]
討論串[請益] random~
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[請益] random~
推噓7(7推 0噓 7→)留言14則，0人參與, 最新作者tonyruler (TONY)時間14年前 (2010/05/04 22:53), 編輯資訊
1
0
0
內容預覽:
有辦法每次執行時. seed會自動改變嗎. 不然每次執行都出現同一組seed的random_number. 似乎達不到亂數的感覺. 上課ppt上寫說. call random_seed(). do i=1,10. random_number(x). print* x. enddo. end. 每次執
#2
Re: [請益] random~
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者sjgau (sjgau)時間14年前 (2010/05/05 10:30), 編輯資訊
0
0
0
內容預覽:
我的方法是，抓取現在的時間的. 從 00:00:00 到現在的千分秒數 ms. , 然後，等待 (1/18.2)秒. 再抓一次。. 用第二次的時間當 種子數。. 然後，前面的 三百個 亂數要去掉，. 不要使用。. 這樣子，一定可以符合需求。. --. ※ 發信站: 批踢踢實業坊(ptt.cc). ◆
#3
Re: [請益] random~
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者souffrance (souffrance)時間14年前 (2010/05/05 14:09), 編輯資訊
0
0
1
內容預覽:
亂數我是建議用Mersenne Twister 它可以產生很好的亂數. 在作模擬的時候也比較可靠. http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/VERSIONS/FORTRAN/fortran.html參考一下吧 上面就有code. 至於seed是
首頁
上一頁
1
下一頁
尾頁