[R] Un Simple tirage au sort unique

[loockys]

Salut tout le monde.

J'aimerais comprendre le fonctionnement du script qui nous permettrait de faire un simple tirage au sort sans que le même tirage sorte deux fois.
Je vous mets un début de code et comme vous le voyez il y a un problème.
D'avance merci

► Afficher le texte

Code : Tout sélectionner

Global $Nbr_Lotorie[10] = [1,2,3,4,5,6,7,8,9,10]

For $i = 1 to 3 Step 1
   Global $Nbr_Al = Random(0,9,1)
   ConsoleWrite($Nbr_Lotorie[$Nbr_Al] & @CRLF)
Next

[Tlem]

Il existe sur le forum, une fonction qui permet de faire un tirage au sort unique. Il me semble qu'à la base c'était pour des cartes.
Utilisez la recherche du forum pour retrouver cette fonction.

[mikell]

Bah je viens de l'écrire, alors...

Code : Tout sélectionner

#Include <Array.au3>
Global $Nbr_Lotorie[10] = [1,2,3,4,5,6,7,8,9,10]

For $i = 1 to 3 Step 1
   $Nbr_Al = Random(0,UBound($Nbr_Lotorie)-1,1)
   ConsoleWrite($Nbr_Lotorie[$Nbr_Al] & @CRLF)
   _ArrayDelete($Nbr_Lotorie, $Nbr_Al)
Next

Mais je me souviens de la fonction en question, effectivement c'était sympa

[loockys]

Il existe sur le forum, une fonction qui permet de faire un tirage au sort unique. Il me semble qu'à la base c'était pour des cartes.
Utilisez la recherche du forum pour retrouver cette fonction.

Je vous rassure que j'ai fait des recherches, mais je n'avais pas trouvé un script simple et moins long qui m'expliquerait en détail le tirage au sort unique.
Merci Mikell pour le script en espèrent que ce poste sera utile et je me permets de rectifier le titre par : un Simple tirage au sort unique

[Tlem]

Une simple recherche de 3 minutes avec le mot "tirage" me donne en résultat :

http://www.autoitscript.fr/forum/viewto ... f=3&t=4953
http://www.autoitscript.fr/forum/viewto ... f=6&t=4957
http://www.autoitscript.fr/forum/viewto ... f=3&t=5373 ***
http://www.autoitscript.fr/forum/viewto ... 607#p49607 ***

Dans chacun de ces liens vous avez un code fonctionnel et adaptable à votre demande. Les plus simples étant ceux avec les étoiles.

[jchd]

On appelle l'opération un "tirage sans remise".

Petite remarque au passage concernant le temps d'exécution dans certains cas (qui n'est absolument pas de l'auto-promotion du quatrième lien fourni par Tlem).

L'idée mise en oeuvre dans le code du lien 3 est correcte mais demande un temps de calcul potentiellement énorme dans le cas où le nombre de jetons disponibles est important et où le nombre de jetons désirés est proche du maximum.
Ainsi, si on veut tirer sans remise 4995 jetons d'un ensemble de 5000, on se retrouve vite avec un tableau $melange qui contient presque tous les nombres que Random() va sortir, d'où une répétition croissante du nombre de boucles qui produisent des Random() qu'on a déjà. On peut pallier à la chose en inversant le problème et en choisissant les 5 jetons à ne pas sortir, ce qui est correct, mais le problème est maintenant que le reste des jetons devrait être annoncé de façon aléatoire si on ne veut pas d'une énumération en séquence croissante.

L'algorithme (4) ci-dessus est linéaire dans tous les cas. Je n'ai pas eu le temps de regarder les 2 premiers.

Une autre possibilité efficace est d'itérer dans les jetons en séquence et de tirer pour chacun une probabilité de sortie. On a ainsi en plus la certitude de finir le tirage dès que le nombre de jetons voulus est sorti, souvent avant l'itération complète.

Exemple :

► Afficher le texte

Code : Tout sélectionner

; jetons numérotés de 1 à 9999
; on veut un tirage semi-aléatoire de 20 jetons

#include <Array.au3>

Local Const $Nmax = 9999
Local Const $Nsortie = 20
Local Const $proba = $Nsortie / $Nmax

Local $tirage[$Nsortie]
Local $i = 1, $n = 0

Do
    If Random() < $proba Then
        $tirage[$n] = $i
        $n += 1
    EndIf
    $i += 1
    If $i > $Nmax Then $i -= $Nmax
Until $n = $Nsortie

_ArrayDisplay($tirage)