生成不重復(fù)隨機(jī)值

*貼子主題：[原創(chuàng)]產(chǎn)生不重復(fù)隨機(jī)數(shù)的例子

chenjun

等級(jí)：版主

威望：5

文章：5452

積分：6106

EH幣：11695

注冊(cè)：2002-8-22

樓主

[原創(chuàng)]產(chǎn)生不重復(fù)隨機(jī)數(shù)的例子

文件中有一個(gè)宏在打開本文件時(shí)自動(dòng)進(jìn)行“選項(xiàng)》重新計(jì)算”中的“反復(fù)操作”的設(shè)置。

點(diǎn)擊瀏覽該文件

2003.11.23新增用數(shù)組公式返回不重復(fù)隨機(jī)值的例子。

點(diǎn)擊瀏覽該文件

[此貼子已經(jīng)被作者于2003-11-252:25:56編輯過(guò)]

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

我用Excel2000

2003-3-40:27:00

bihuashzw

等級(jí)：中級(jí)一

第2樓

無(wú)愧為“Excel游俠”。

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

學(xué)海無(wú)涯樂(lè)作舟書山有路趣為徑

2003-3-1618:00:00

yyh740225

等級(jí)：新手上路

文章：71

第3樓

請(qǐng)教chenjun

請(qǐng)教游俠：

在您的《生成不重復(fù)隨機(jī)數(shù)》的文件中，隨機(jī)值范圍等3列中單元格右側(cè)的滾動(dòng)條是

怎么作出來(lái)的，請(qǐng)賜教。

萬(wàn)分感謝。

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

在這里如饑似渴。

更感謝無(wú)私的高人們。

2003-3-2710:42:00

chenjun

等級(jí)：版主

第4樓

“數(shù)據(jù)》有效性》設(shè)置》允許”中選“序列”，“來(lái)源”中直接輸入。

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

我用Excel2000

2003-3-2714:26:00

chenjun

等級(jí)：版主

第5樓

再來(lái)一個(gè)例子，還是用了循環(huán)引用。

點(diǎn)擊瀏覽該文件

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

我用Excel2000

2003-4-1322:33:00

新……

等級(jí)：初級(jí)二

第6樓

收下了。

謝謝！

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

學(xué)海無(wú)涯，學(xué)無(wú)止境。

如回答不正確，請(qǐng)指正。因?yàn)槟刚龑⑹刮覐腻e(cuò)誤的歷史中回到正確的道路上來(lái)。

謝謝您的幫助~！

2003-4-1711:35:00

ndavid

等級(jí)：新手上路

第7樓

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

如果隨機(jī)值範(fàn)圍能讓自由選擇，例如選1-35，但我只輸入我認(rèn)為機(jī)率較高的數(shù)字24個(gè)；如能這樣，就是夢(mèng)寐以求的程式，頂一

下!

2003-4-1713:19:00

chenjun

等級(jí)：版主

第8樓

tondavid:

可以的，給一個(gè)在指定數(shù)據(jù)區(qū)域中產(chǎn)生不重復(fù)隨機(jī)數(shù)的例子，本例中可選自定義輸入的5個(gè)數(shù)據(jù)源。

點(diǎn)擊瀏覽該文件

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

我用Excel2000

2003-4-1911:40:00

whbin

等級(jí)：新手上路

第9樓

不錯(cuò)

2003-4-1920:02:00

海亞

等級(jí)：新手上路

文章：12

第10樓

我試用了一個(gè)，很好用，但是如果我想改成不是產(chǎn)生10組，要更多組，要如何改呢，比如100組？？？、

cleveraaa

等級(jí)：初級(jí)三

第21樓

"好東西就要上樓頂,大家都看的到!!"

2003-11-2322:20:00

學(xué)生

等級(jí)：初級(jí)一

第22樓

好東西，送花一朵。

對(duì)不起了，我送了幾次均不行。

[此貼子已經(jīng)被作者于2003-11-2420:44:28編輯過(guò)]

2003-11-2420:43:00

wangsj

等級(jí)：初級(jí)二

第23樓

陳老師太厲害了！建議斑竹置頂！

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

2003-11-2515:56:00

風(fēng)中飄雪

等級(jí)：高級(jí)一

第24樓

好久沒(méi)來(lái)，陳兄又上大餐了！謝謝?。≈x謝?。?！

順問(wèn)一下，你說(shuō)：RAND函數(shù)生成的是15位小數(shù)的隨機(jī)數(shù)，在100個(gè)中是不會(huì)重復(fù)的。

這15和100你確定嗎？我查不到相關(guān)資料。

你的貼子貼貼精典！

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

******幫助別人也會(huì)提高自已******

2003-12-1119:45:00

chenjun

等級(jí)：版主

第25樓

RAND函數(shù)生成15位的小數(shù)應(yīng)該沒(méi)有問(wèn)題的，在100個(gè)中不重復(fù)那是概率的問(wèn)題，你可計(jì)算

一下，是不是與你連中2次彩票特等獎(jiǎng)?lì)愃啤?/p>

[此貼子已經(jīng)被作者于2003-12-1123:22:31編輯過(guò)]

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

我用Excel2000

2003-12-1123:21:00

chenjun

等級(jí)：版主

第26樓

算我出的數(shù)學(xué)題目：

15位小數(shù)的每一個(gè)出現(xiàn)的概率為10E-15，100個(gè)隨機(jī)的這樣的小數(shù)中出現(xiàn)重復(fù)的概率為多

少？

要說(shuō)明計(jì)算方法及結(jié)果。

[此貼子已經(jīng)被作者于2003-12-1315:32:59編輯過(guò)]

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

我用Excel2000

2003-12-120:36:00

風(fēng)中飄雪

等級(jí)：高級(jí)一

第27樓

陳軍終于肯當(dāng)版主了，可喜可賀。不過(guò)這是啥時(shí)候的事？好久沒(méi)來(lái)現(xiàn)在才注意到。好好

好。。。

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

******幫助別人也會(huì)提高自已******

2003-12-128:16:00

chenjun

等級(jí)：版主

第28樓

12月10日，你算了概率沒(méi)有？

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

我用Excel2000

2003-12-1221:39:00

chenjun

等級(jí)：版主

第29樓

15位的隨機(jī)小數(shù)，如將0也考慮進(jìn)去，有1E15個(gè)(實(shí)際應(yīng)沒(méi)有0的，為1E15-1個(gè)，為計(jì)算方

便而且不影響結(jié)果的精度)，每個(gè)出現(xiàn)的概率為1E-15，在100個(gè)中不重復(fù)的概率可這樣計(jì)算：

第1個(gè)隨便?。?/p>

第2個(gè)要與第1個(gè)不重復(fù)，就只能在剩下的1E15-1個(gè)中取，那么取第2個(gè)數(shù)的不重復(fù)概率為

(1E15-1)/1E15；

第3個(gè)要與前2個(gè)不重復(fù)，就只能在剩下的1E15-2個(gè)中取，那么取第3個(gè)數(shù)的不重復(fù)概率為

(1E15-2)/1E15；

依次類推，第100個(gè)數(shù)要與前99個(gè)不重復(fù)，就要在剩下的1E15-99個(gè)中取，那么取第100個(gè)

數(shù)的不重復(fù)概率就為(1E15-99)/1E15；

因?yàn)槊看稳?shù)是一個(gè)獨(dú)立的事件，所以整個(gè)取數(shù)過(guò)程中沒(méi)有重復(fù)的概率因?qū)⒚總€(gè)取數(shù)不

重復(fù)概率相乘，即在1E15個(gè)數(shù)中隨機(jī)取100個(gè)數(shù)沒(méi)有重復(fù)的概率為

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

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

將1減以這個(gè)值，就是取100個(gè)數(shù)可能出現(xiàn)重復(fù)的概率。

考慮到excel的單元格計(jì)算中有效位只有15位，為保證計(jì)算精度就不在單元格中計(jì)算；

看看VBA中有一個(gè)數(shù)據(jù)類型為Decimal，可有28位精度，但不能直接將變量定義為Decimal

，只能通過(guò)CDec函數(shù)轉(zhuǎn)換后賦值給Variant類型的變量，所以用以下一段VBA程序計(jì)算，

Sub概率計(jì)算()

"DimtotalAsVariant,iAsInteger"

total=1

Fori=1To99

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

Nexti

"Debug.Print""不重復(fù)概率為""&CDbl(total),""出現(xiàn)重復(fù)概率為""&CDbl(1-total)"

EndSub

運(yùn)算以上程序即可在VBE的立即窗口中出現(xiàn)結(jié)果：

不重復(fù)概率為.99999999999505出現(xiàn)重復(fù)概率為4.94999999998791E-12

當(dāng)然用windows附件中的科學(xué)計(jì)算器也是可以計(jì)算的，只要你有耐心輸入99個(gè)數(shù)。

如果你買一張6位數(shù)的彩票，中頭等獎(jiǎng)的概率為1E-6，買2次均中頭等獎(jiǎng)的概率為1E-12，

以上算出的100個(gè)隨機(jī)數(shù)有重復(fù)的概率是兩次只買一張彩票兩次均中頭等獎(jiǎng)的出現(xiàn)概率的5倍，所以我才

說(shuō)在100個(gè)隨機(jī)數(shù)中不會(huì)出現(xiàn)重復(fù)。

如果哪位網(wǎng)友在我上面帖子的例子中出現(xiàn)了100個(gè)隨機(jī)數(shù)中有重復(fù)的這樣的運(yùn)氣，那么趕

緊去買上幾張彩票發(fā)財(cái)吧??！

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

我用Excel2000

2003-12-1316:21:00

裘得

等級(jí)：新手上路

第30樓

好多天沒(méi)來(lái)，好東西太多了。興奮?。。?！

四月寺

等級(jí)：初級(jí)二

第31樓

也是不重復(fù)隨機(jī)函數(shù)問(wèn)題:

"有200個(gè)考生,"

打算用隨機(jī)函數(shù)將考生先分為1-20個(gè)考場(chǎng)

再將每個(gè)考場(chǎng)的考生排成1-20個(gè)座次號(hào)

用隨機(jī)函數(shù)如何處理

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

得到幫助何止事半功倍不論收獲人人是我?guī)煟?/p>

希望和熟練使用ABIS的朋友取得聯(lián)系。

2004-3-128:20:00

chenjun

等級(jí)：版主

第32樓

點(diǎn)擊瀏覽該文件

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

我用Excel2000

2004-3-1213:19:00

四月寺

等級(jí)：初級(jí)二

第33樓

"多謝,佩服,板柱當(dāng)之無(wú)愧"

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

得到幫助何止事半功倍不論收獲人人是我?guī)煟?/p>

希望和熟練使用ABIS的朋友取得聯(lián)系。

2004-3-1218:22:00

四月寺

等級(jí)：初級(jí)二

34樓

"再謝板柱,原來(lái)不用數(shù)組也有同樣效果"

點(diǎn)擊瀏覽該文件

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

得到幫助何止事半功倍不論收獲人人是我?guī)煟?/p>

希望和熟練使用ABIS的朋友取得聯(lián)系。