作者silversun (~银日~)
看板PHP
标题[请益] 关於在UNIX作业系统下使用RAND的问题
时间Fri May 30 16:48:46 2008
最近老师出了一份要使用 "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 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.132.138
※ 编辑: silversun 来自: 140.116.132.138 (05/30 16:59)
1F：嘘 JoeHorn:PHP 没这种问题... 05/30 18:28
2F：→ starjou:没有 UNIX 版但是Linux版 05/30 19:38