Je pense que votre algorithme simple mélangera les cartes correctement car le nombre de remaniements tend à l'infini.
Supposons que vous ayez trois cartes: {A, B, C}. Supposons que vos cartes commencent dans l'ordre suivant: A, B, C. Ensuite, après un mélange, vous avez les combinaisons suivantes:
{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}
Par conséquent, la probabilité que la carte A soit en position {1,2,3} est {5/9, 2/9, 2/9}.
Si nous mélangeons les cartes une deuxième fois, alors:
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)
Cela donne 0,407.
En utilisant la même idée, nous pouvons former une relation de récurrence, c'est-à-dire:
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).
Le codage de ceci dans R (voir le code ci-dessous), donne la probabilité que la carte A soit en position {1,2,3} comme {0,33334, 0,33333, 0,33333} après dix shuffles.
Code 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