作者liaosankai (低温烘焙)
看板PHP
标题Re: [请益] 关於在UNIX作业系统下使用RAND的问题
时间Fri May 30 17:06:37 2008
※ 引述《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
1F：→ MOONRAKER:他写那是FORTRAN，这招没效。 05/30 19:54