看板Programming
標 題Re: 請問Fortran如何產生"不同"的隨機變數
發信站夢之大地 (Fri Oct 19 22:26:04 2007)
轉信站ptt!ctu-reader!ctu-peer!ctu-gate!news.nctu!news2!ccnews.ncku!Dream
感謝回答
但是我加入CALL RANDOM_SEED之後
每次執行出來的亂數還是一樣
我加入的地方是在random_number之前
例：
call random_seed()
call random_number(popu)
Build程式之後，每次Excute出來的亂數都一樣
我問了google之後，找到關於random_seed的使用
http://www.okok.org/cgi-bin/ut/topic_show.cgi?id=157388&h=1&bpg=1&age=30
他說: "random_seed()產生的種子是由當前計算机的日期和時間組成"
而且 "取決于中間語句的執行時間"
他加入了一個很長的迴圈，故意讓程式執行久一點
do i=1, 1e10
end do
之後再呼叫random_seed()，果然亂數就不一樣了
該不會Fortran每次想產生不同亂數都要這麼麻煩吧...??
※ 引述《[email protected] (璉璉)》之銘言：
> 貼錯函數。
> CALL RANDOM_NUMBER (harvest)
> 這個是傳回亂數。
> 純粹設亂數種子：
> CALL RANDOM_SEED ([size] [, put] [, get])
> ==> 本文由 "璉璉 <[email protected]>"
> > 於 news:3CB93BFB9C0942BA9FABE2E445D16673%40c2e6400 發表
> > Fortran 90 的標準應該是
> > CALL RANDOM_NUMBER (harvest)
> > SRAND 是 Intel Fortran 提供的延伸函式，並不被其他的 Fortran 編譯器支援。
--
◢◣ ︵︵ █▔◣ █▔█ █▔▔ █▔█ █▆▉ █ █▔█ █◣█ █▔●
◢◤█◣◢◣ ︵︵ █ █ █▁◤ █▁▁ █▁█ ▉▉▉ █ █▁█ █◥█ █ █
夢之大地 逼逼ㄟ四 █▁◤ █ █ █▁▁ █ █ ▉▉▉ █▁ █ █ █ █ █▁◤
※ Origin: <bbs.ccns.ncku.edu.tw> ◆ From: 59.127.64.104