Re: [請益] 關於在UNIX作業系統下使用RAND的問題

看板PHP作者 (低溫烘焙)時間17年前 (2008/05/30 17:06), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串2/2 (看更多)
※ 引述《silversun (~銀日~)》之銘言: : 最近老師出了一份要使用 "RAND()"來產生亂數的問題 : 但是我的亂數跑出來都是 "0." : 請問高手這要如何解決呢? : 以下是算式的全文 : program TEST : real a, b, c, i, N : parameter (N=10000) : real*8 f(N), rand(N) : do i=1,5 : f(i)=rand(1) : write(*,*) i, f(i) : end do : stop : end : PS 因為找不到UNIX版所以 在這邊發問 : 如果不適合我會自D 謝謝 好像要先設定亂數種子 通常的寫法是這樣srand(time()); 如果你要的亂數要更亂,那麼最好在種子上下功夫 -- 我的樂多網誌http://blog.roodo.com/liaosankai -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.67.245.102

05/30 19:54, , 1F
他寫那是FORTRAN,這招沒效。
05/30 19:54, 1F
文章代碼(AID): #18FyEX-2 (PHP)
文章代碼(AID): #18FyEX-2 (PHP)