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

学生

好东西，送花一朵。 对不起了，我送了几次均不行。

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

wangsj

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

风中飘雪

好久没来，陈兄又上大餐了！谢谢！！谢谢！！！ 顺问一下，你说：RAND函数生成的是15位小数的随机数，在100个中是不会重复的。 这15和100你确定吗？我查不到相关资料。 你的贴子贴贴精典！

chenjun

RAND函数生成15位的小数应该没有问题的，在100个中不重复那是概率的问题，你可计算一下，是不是与你连中2次彩票特等奖类视。

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

chenjun

算我出的数学题目： 15位小数的每一个出现的概率为10E-15，100个随机的这样的小数中出现重复的概率为多少？ 要说明计算方法及结果。

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

风中飘雪

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

chenjun

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

chenjun

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 概率计算() Dim total As Variant, i As Integer total = 1 For i = 1 To 99 total = CDec(CDec(1) - CDec(0.000000000000001 * i)) * CDec(total) Next i Debug.Print "不重复概率为" & CDbl(total), "出现重复概率为" & CDbl(1 - total) End Sub 运算以上程序即可在VBE的立即窗口中出现结果： 不重复概率为.99999999999505 出现重复概率为4.94999999998791E-12 当然用windows附件中的科学计算器也是可以计算的，只要你有耐心输入99个数。 如果你买一张6位数的彩票，中头等奖的概率为1E-6，买2次均中头等奖的概率为1E-12，以上算出的100个随机数有重复的概率是两次只买一张彩票两次均中头等奖的出现概率的5倍，所以我才说在100个随机数中不会出现重复。 如果哪位网友在我上面帖子的例子中出现了100个随机数中有重复的这样的运气，那么赶紧去买上几张彩票发财吧！！

裘得

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

四月寺

也是不重复随机函数问题: 有200个考生, 打算用随机函数将考生先分为1-20个考场 再将每个考场的考生排成1-20个座次号 用随机函数如何处理