Re: [請益] random~

看板Fortran作者 (sjgau)時間14年前 (2010/05/05 10:30), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串2/3 (看更多)
我的方法是,抓取現在的時間的 從 00:00:00 到現在的千分秒數 ms , 然後,等待 (1/18.2)秒 再抓一次。 用第二次的時間當 種子數。 然後,前面的 三百個 亂數要去掉, 不要使用。 這樣子,一定可以符合需求。 ※ 引述《tonyruler (TONY)》之銘言: : 有辦法每次執行時 : seed會自動改變嗎 : 不然每次執行都出現同一組seed的random_number : 似乎達不到亂數的感覺 : 上課ppt上寫說 : call random_seed() : do i=1,10 : random_number(x) : print* x : enddo : end : 每次執行a.out : 得到的x值都會不一樣 : 可是我回家用 卻每次都一樣阿 : 都是同一組 : 到底是哪裡有問題= =? : :wq -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.20.174.142

05/05 14:02, , 1F
我都丟掉兩千個 用Mersenne Twister啦
05/05 14:02, 1F
文章代碼(AID): #1BuDWslA (Fortran)
討論串 (同標題文章)
本文引述了以下文章的的內容:
7
14
完整討論串 (本文為第 2 之 3 篇):
7
14
0
1
1
1
文章代碼(AID): #1BuDWslA (Fortran)