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

[liaosankai (低溫烘焙)]

※ 引述《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
→ MOONRAKER:他寫那是FORTRAN，這招沒效。