作者sjgau (sjgau)
看板Fortran
标题Re: [请益] random~
时间Wed May 5 10:30:11 2010
我的方法是，抓取现在的时间的
从 00:00:00 到现在的千分秒数 ms
, 然後，等待 (1/18.2)秒
再抓一次。
用第二次的时间当 种子数。
然後，前面的 三百个 乱数要去掉，
不要使用。
这样子，一定可以符合需求。
※ 引述《tonyruler (TONY)》之铭言：
: 有办法每次执行时
: seed会自动改变吗
: 不然每次执行都出现同一组seed的random_number
: 似乎达不到乱数的感觉
: 上课ppt上写说
: call random_seed()
: do i=1,10
: random_number(x)
: print* x
: enddo
: end
: 每次执行a.out
: 得到的x值都会不一样
: 可是我回家用 却每次都一样阿
: 都是同一组
: 到底是哪里有问题= =?
: :wq
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.20.174.142
1F：→ souffrance:我都丢掉两千个 用Mersenne Twister啦 05/05 14:02