Penso che il tuo semplice algoritmo mescolerà le carte correttamente mentre il numero di caselle tende all'infinito.
Supponiamo di avere tre carte: {A, B, C}. Supponi che le tue carte inizino nel seguente ordine: A, B, C. Quindi dopo uno shuffle hai le seguenti combinazioni:
{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}
Quindi, la probabilità che la carta A sia in posizione {1,2,3} è {5/9, 2/9, 2/9}.
Se mescoliamo le carte una seconda volta, allora:
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)
Questo dà 0,407.
Usando la stessa idea, possiamo formare una relazione di ricorrenza, ovvero:
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).
Codificandolo in R (vedi il codice sotto), si ha la probabilità che la carta A sia in posizione {1,2,3} come {0,33334, 0,33333, 0,33333} dopo dieci mischiature.
Codice 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