ฉันคิดว่าอัลกอริทึมอย่างง่ายของคุณจะสุ่มไพ่ได้อย่างถูกต้องเนื่องจากจำนวนที่สับนั้นมีแนวโน้มที่จะไม่มีที่สิ้นสุด
สมมติว่าคุณมีไพ่สามใบ: {A, B, C} สมมติว่าไพ่ของคุณเริ่มต้นตามลำดับต่อไปนี้: A, B, C จากนั้นหลังจากหนึ่งสลับคุณมีชุดค่าผสมต่อไปนี้:
{A,B,C}, {A,B,C}, {A,B,C} #You get this if choose the same RN twice.
{A,C,B}, {A,C,B}
{C,B,A}, {C,B,A}
{B,A,C}, {B,A,C}
ดังนั้นความน่าจะเป็นของการ์ด A ที่อยู่ในตำแหน่ง {1,2,3} คือ {5/9, 2/9, 2/9}
หากเราสุ่มไพ่เป็นครั้งที่สองแล้ว:
Pr(A in position 1 after 2 shuffles) = 5/9*Pr(A in position 1 after 1 shuffle)
+ 2/9*Pr(A in position 2 after 1 shuffle)
+ 2/9*Pr(A in position 3 after 1 shuffle)
นี่ให้ 0.407
ด้วยแนวคิดเดียวกันนี้เราสามารถสร้างความสัมพันธ์ที่เกิดซ้ำได้เช่น:
Pr(A in position 1 after n shuffles) = 5/9*Pr(A in position 1 after (n-1) shuffles)
+ 2/9*Pr(A in position 2 after (n-1) shuffles)
+ 2/9*Pr(A in position 3 after (n-1) shuffles).
การเขียนโค้ดนี้ใน R (ดูรหัสด้านล่าง) ให้ความน่าจะเป็นของการ์ด A ที่อยู่ในตำแหน่ง {1,2,3} เป็น {0.33334, 0.33333, 0.33333} หลังจากสิบสับ
รหัส R
## m is the probability matrix of card position
## Row is position
## Col is card A, B, C
m = matrix(0, nrow=3, ncol=3)
m[1,1] = 1; m[2,2] = 1; m[3,3] = 1
## Transition matrix
m_trans = matrix(2/9, nrow=3, ncol=3)
m_trans[1,1] = 5/9; m_trans[2,2] = 5/9; m_trans[3,3] = 5/9
for(i in 1:10){
old_m = m
m[1,1] = sum(m_trans[,1]*old_m[,1])
m[2,1] = sum(m_trans[,2]*old_m[,1])
m[3,1] = sum(m_trans[,3]*old_m[,1])
m[1,2] = sum(m_trans[,1]*old_m[,2])
m[2,2] = sum(m_trans[,2]*old_m[,2])
m[3,2] = sum(m_trans[,3]*old_m[,2])
m[1,3] = sum(m_trans[,1]*old_m[,3])
m[2,3] = sum(m_trans[,2]*old_m[,3])
m[3,3] = sum(m_trans[,3]*old_m[,3])
}
m