随机序列的生成

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

1^# perljoker 发表于 2008-02-20 17:06

随机序列的生成

记得前久说到过随机数生成的想关程序，可是，在我提出随机序列如何生成时，貌似没人关注了
今天看java的时候，受到里面方法指导，想到了perl生成随机序列的方法，不采用hash
并且可以重复使用该方法，写了2个，在有个细微的地方有差别，先看下：

[Copy to clipboard] [ - ]

CODE:

# method A
for($k=0;$k<10;$k++){$arr[$k]=$k;}
print "@arr\n";
for($k=0;$k<10;$k++){
$i=int(rand(10));
@arr[$i,$k]=@arr[$k,$i];
}
print "@arr\n";

[Copy to clipboard] [ - ]

CODE:

# method B
for($k=0;$k<10;$k++){$arr[$k]=$k;}
print "@arr";
for($k=0;$k<10;$k++){
$i=int(rand(10));
@arr[$i,1]=@arr[1,$i]; #注意，这里和上面的差别就是$k换成了固定值，比如1
}
print "@arr\n";

上述2种方法获得随机序列都很好
问题是，我对哪种方法能得到更好的随机序列存在疑问
不知道谁能来解析下2中方法的效果

补充：2种方法的文字说明：
对于一个数列，假设是顺序的，如 1 2 3 4 5 6
B：每次随机取其中一个位置，将他的数值和1号位数值交换，换6次，得到一个随机数列
A：每次随机取一个位置，将他的数值和顺序位数值交换，换6次，得到一个随机数列

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

2^# Nosferatu 发表于 2008-02-20 18:11

皮尔逊定理看是否符合泊松分布

lipch

UID: 22854
帖子: 1
积分: 2
在线时间: 10 分钟

3^# lipch 发表于 2008-10-06 16:20

ms很巧妙的方法，但是不是真的随机不知道。
好象随机数的产生可以写一本博士论文，不知道这样是否合理。
请达人指教。

lipch

UID: 22854
帖子: 1
积分: 2
在线时间: 10 分钟

4^# lipch 发表于 2008-10-06 16:36

另外，纠正一个地方，这个程序共交换了10次，不是6次

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

5^# 不死草发表于 2008-10-06 17:32

呵呵，感觉貌似彩票的随机。
恩，貌似可以使用排序函数？