生成不重复随机值

*贴子主题：[原创]产生不重复随机数的例子

chenjun

等级：版主

威望：5

文章：5452

积分：6106

EH币：11695

注册：2002-8-22

楼主

[原创]产生不重复随机数的例子

文件中有一个宏在打开本文件时自动进行“选项》重新计算”中的“反复操作”的设置。

点击浏览该文件

2003.11.23新增用数组公式返回不重复随机值的例子。

点击浏览该文件

[此贴子已经被作者于2003-11-252:25:56编辑过]

----------------------------------------------

我用Excel2000

2003-3-40:27:00

bihuashzw

等级：中级一

第2楼

无愧为“Excel游侠”。

----------------------------------------------

学海无涯乐作舟书山有路趣为径

2003-3-1618:00:00

yyh740225

等级：新手上路

文章：71

第3楼

请教chenjun

请教游侠：

在您的《生成不重复随机数》的文件中，随机值范围等3列中单元格右侧的滚动条是

怎么作出来的，请赐教。

万分感谢。

----------------------------------------------

在这里如饥似渴。

更感谢无私的高人们。

2003-3-2710:42:00

chenjun

等级：版主

第4楼

“数据》有效性》设置》允许”中选“序列”，“来源”中直接输入。

----------------------------------------------

我用Excel2000

2003-3-2714:26:00

chenjun

等级：版主

第5楼

再来一个例子，还是用了循环引用。

点击浏览该文件

----------------------------------------------

我用Excel2000

2003-4-1322:33:00

新……

等级：初级二

第6楼

收下了。

谢谢！

----------------------------------------------

学海无涯，学无止境。

如回答不正确，请指正。因为您指正将使我从错误的历史中回到正确的道路上来。

谢谢您的帮助~！

2003-4-1711:35:00

ndavid

等级：新手上路

第7楼

哇！厲害!在所有探討excel的論壇，第一次看到不以VBA做的例子(包括國外)!偶像!

如果隨機值範圍能讓自由選擇，例如選1-35，但我只輸入我認為機率較高的數字24個；如能這樣，就是夢寐以求的程式，頂一

下!

2003-4-1713:19:00

chenjun

等级：版主

第8楼

tondavid:

可以的，给一个在指定数据区域中产生不重复随机数的例子，本例中可选自定义输入的5个数据源。

点击浏览该文件

----------------------------------------------

我用Excel2000

2003-4-1911:40:00

whbin

等级：新手上路

第9楼

不错

2003-4-1920:02:00

海亚

等级：新手上路

文章：12

第10楼

我试用了一个，很好用，但是如果我想改成不是产生10组，要更多组，要如何改呢，比如100组？？？、

cleveraaa

等级：初级三

第21楼

"好东西就要上楼顶,大家都看的到!!"

2003-11-2322:20:00

学生

等级：初级一

第22楼

好东西，送花一朵。

对不起了，我送了几次均不行。

[此贴子已经被作者于2003-11-2420:44:28编辑过]

2003-11-2420:43:00

wangsj

等级：初级二

第23楼

陈老师太厉害了！建议斑竹置顶！

----------------------------------------------

2003-11-2515:56:00

风中飘雪

等级：高级一

第24楼

好久没来，陈兄又上大餐了！谢谢！！谢谢！！！

顺问一下，你说：RAND函数生成的是15位小数的随机数，在100个中是不会重复的。

这15和100你确定吗？我查不到相关资料。

你的贴子贴贴精典！

----------------------------------------------

******帮助别人也会提高自已******

2003-12-1119:45:00

chenjun

等级：版主

第25楼

RAND函数生成15位的小数应该没有问题的，在100个中不重复那是概率的问题，你可计算

一下，是不是与你连中2次彩票特等奖类似。

[此贴子已经被作者于2003-12-1123:22:31编辑过]

----------------------------------------------

我用Excel2000

2003-12-1123:21:00

chenjun

等级：版主

第26楼

算我出的数学题目：

15位小数的每一个出现的概率为10E-15，100个随机的这样的小数中出现重复的概率为多

少？

要说明计算方法及结果。

[此贴子已经被作者于2003-12-1315:32:59编辑过]

----------------------------------------------

我用Excel2000

2003-12-120:36:00

风中飘雪

等级：高级一

第27楼

陈军终于肯当版主了，可喜可贺。不过这是啥时候的事？好久没来现在才注意到。好好

好。。。

----------------------------------------------

******帮助别人也会提高自已******

2003-12-128:16:00

chenjun

等级：版主

第28楼

12月10日，你算了概率没有？

----------------------------------------------

我用Excel2000

2003-12-1221:39:00

chenjun

等级：版主

第29楼

15位的随机小数，如将0也考虑进去，有1E15个(实际应没有0的，为1E15-1个，为计算方

便而且不影响结果的精度)，每个出现的概率为1E-15，在100个中不重复的概率可这样计算：

第1个随便取；

第2个要与第1个不重复，就只能在剩下的1E15-1个中取，那么取第2个数的不重复概率为

(1E15-1)/1E15；

第3个要与前2个不重复，就只能在剩下的1E15-2个中取，那么取第3个数的不重复概率为

(1E15-2)/1E15；

依次类推，第100个数要与前99个不重复，就要在剩下的1E15-99个中取，那么取第100个

数的不重复概率就为(1E15-99)/1E15；

因为每次取数是一个独立的事件，所以整个取数过程中没有重复的概率因将每个取数不

重复概率相乘，即在1E15个数中随机取100个数没有重复的概率为

(1E15-1)/1E15*(1E15-2)/1E15*........*(1E15-99)/1E15

=0.999999999999999*0.999999999999998*......*0.999999999999901

将1减以这个值，就是取100个数可能出现重复的概率。

考虑到excel的单元格计算中有效位只有15位，为保证计算精度就不在单元格中计算；

看看VBA中有一个数据类型为Decimal，可有28位精度，但不能直接将变量定义为Decimal

，只能通过CDec函数转换后赋值给Variant类型的变量，所以用以下一段VBA程序计算，

Sub概率计算()

"DimtotalAsVariant,iAsInteger"

total=1

Fori=1To99

total=CDec(CDec(1)-CDec(0.000000000000001*i))*CDec(total)

Nexti

"Debug.Print""不重复概率为""&CDbl(total),""出现重复概率为""&CDbl(1-total)"

EndSub

运算以上程序即可在VBE的立即窗口中出现结果：

不重复概率为.99999999999505出现重复概率为4.94999999998791E-12

当然用windows附件中的科学计算器也是可以计算的，只要你有耐心输入99个数。

如果你买一张6位数的彩票，中头等奖的概率为1E-6，买2次均中头等奖的概率为1E-12，

以上算出的100个随机数有重复的概率是两次只买一张彩票两次均中头等奖的出现概率的5倍，所以我才

说在100个随机数中不会出现重复。

如果哪位网友在我上面帖子的例子中出现了100个随机数中有重复的这样的运气，那么赶

紧去买上几张彩票发财吧！！

----------------------------------------------

我用Excel2000

2003-12-1316:21:00

裘得

等级：新手上路

第30楼

好多天没来，好东西太多了。兴奋！！！！

四月寺

等级：初级二

第31楼

也是不重复随机函数问题:

"有200个考生,"

打算用随机函数将考生先分为1-20个考场

再将每个考场的考生排成1-20个座次号

用随机函数如何处理

----------------------------------------------

得到帮助何止事半功倍不论收获人人是我师！

希望和熟练使用ABIS的朋友取得联系。

2004-3-128:20:00

chenjun

等级：版主

第32楼

点击浏览该文件

----------------------------------------------

我用Excel2000

2004-3-1213:19:00

四月寺

等级：初级二

第33楼

"多谢,佩服,板柱当之无愧"

----------------------------------------------

得到帮助何止事半功倍不论收获人人是我师！

希望和熟练使用ABIS的朋友取得联系。

2004-3-1218:22:00

四月寺

等级：初级二

34楼

"再谢板柱,原来不用数组也有同样效果"

点击浏览该文件

----------------------------------------------

得到帮助何止事半功倍不论收获人人是我师！

希望和熟练使用ABIS的朋友取得联系。