[讨论]lisp生成随机数(扑克洗牌法)

nonsmall · 发表于 2008-1-19 13:33

本帖最后由作者于 2008-1-19 16:40:34 编辑

我使用系统时间来计算随机数

但是出现的问题是连续取的时候

两次取得系统时间几乎相同

不知道大侠们有没有其他获得随机数的办法?

nonsmall · 发表于 2008-1-19 13:46

我的CAD版本里面取不到CPUTICKS系统变量.太残忍了

nonsmall · 发表于 2008-1-19 15:42

本帖最后由作者于 2008-1-19 15:43:06 编辑

我需要取从0到i (i=0,1,2....9)以内的数

当i=0 则结果=0

i=1,2,3时结果=随机数除以(i+1)取余数

i>3时随机循环取然后判断随机数小于等于i时结束(用上面的方法导致概率不平均)

但是这样的循环效率还是很低(循环时系统时间获取值相同要等一会才能循环出下一个值)

不知道在i>3的时候怎样能够公平的获取随机数?

nonsmall · 发表于 2008-1-19 16:40

我想到扑克牌洗牌是打乱顺序的一种方法

一个表(长度由需要选取的数目大小决定)

(0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 .......)进行洗牌方式的排序

新表是旧表取第一个最后一个第二个倒数第二个 .....

(0 9 1 8 2 7 .......)

每次洗牌后再抽掉随机的一个表元素 (随机值由getvar date获得)

再洗牌

几次之后取其中的一个数或对表进行计算应该能连续获得随机的数吧?

nonsmall · 发表于 2008-1-19 16:45

真正的扑克洗牌

并不是规律性的穿插

每次洗牌的过程都不一样

如果能对简单的(0 1 2 3 4 5 6 7 8 9)这个表进行

非规律性的洗牌

就能连续获得随机数

不知各位大侠有什么好办法?

caoyin · 发表于 2008-1-19 18:56

本帖最后由作者于 2008-1-19 19:04:23 编辑

我的方法是

1.将数据进行 rem exp log 等函数进行处理...

2.与 (cadr (grread T)) 进行数学运算

3.转成ascii 进行运算

无痕 · 发表于 2008-1-19 23:56

vba的 rnd

账号		自动登录	找回密码
密码			注册