[R] Loto Nombres qui sortent le plus souvent

[jcaspar]

Bo njour à tous !
Voici un petit programme qui choisit 6 numéros de manière aléatoire sur le nombre de grille voulus
je souhaiterais connaitre les numeros qui sortent le plus souvent pouvez vous svp m'expliquer comment
déterminer les nombres apparaissant le plus frequemment

En vous remerciant pour vos conseils

Code : Tout sélectionner

#include <Array.au3>

Local $NB_tirage = 100000
Local $Nb_Numero = 6

Local $aTirage[$NB_tirage][$Nb_Numero]

For $i = 0 To $NB_tirage - 1
    For $j = 0 To $Nb_Numero - 1
        $aTirage[$i][$j] = Random(0, 49, 1)
    Next
Next
_ArrayDisplay($aTirage, "tirage1")

local $msg = ""
For $i = 0 To $NB_tirage - 1
    $msg &= "tirage N°2" & $i + 1 & ":   "
    For $j = 0 To $Nb_Numero - 1
        If $j = $Nb_Numero -1 Then $msg &= "++ "
        $msg &= $aTirage[$i][$j] & @TAB & " "
    Next
    $msg = StringTrimRight($msg, 1)
    $msg &= @CRLF
Next
ConsoleWrite($msg)

msgbox(524288, "Loto", $msg)

 

[jguinch]

Ton algorithme a un problème... Certains numéros sont tirés plusieurs fois lors du même tirage
Regarde ce post, ça peut t'intéresser : http://www.autoitscript.fr/forum/viewto ... hilit=loto

[jcaspar]

Merci pour votre réponse !

dans une row les nombres sont bien différents bien sur si tu prends une colonne tu verras le nombre tiré plusieurs fois ... a priori rien d'anormal

pour compter le nombre de 0 tirés je pensais utiliser la fonction _ArrayFindAll mais pense avoir un soucis avec la syntaxe ...

Code : Tout sélectionner

#include <Array.au3>

Local $NB_tirage = 10
Local $Nb_Numero = 6

Local $aTirage[$NB_tirage][$Nb_Numero]

For $i = 0 To $NB_tirage - 1
    For $j = 0 To $Nb_Numero - 1
        $aTirage[$i][$j] = Random(0, 49, 1)
    Next
Next
_ArrayDisplay($aTirage, "tirage1")

local $msg = ""
For $i = 0 To $NB_tirage - 1
    $msg &= "tirage N°2" & $i + 1 & ":   "
    For $j = 0 To $Nb_Numero - 1
        If $j = $Nb_Numero -1 Then $msg &= "++ "
        $msg &= $aTirage[$i][$j] & @TAB & " "
    Next
    $msg = StringTrimRight($msg, 1)
    $msg &= @CRLF
Next
ConsoleWrite($msg)

msgbox(524288, "Loto", $msg)

 $recherche=_ArrayFindAll($aTirage, 5)
msgbox(48,"recherche",$recherche)
_ArrayDisplay($recherche, "recherche 0")



 

[jguinch]

jcaspar : est-ce que tu vas te décider à utiliser la balise Spoiler ?!

[orax]

Et comme ça ?

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>

Local $NB_tirage = 10
Local $Nb_Numero = 6
Local $euh[50]

Local $aTirage[$NB_tirage][$Nb_Numero]

For $i = 0 To $NB_tirage - 1
    For $j = 0 To $Nb_Numero - 1
        $tirage = Random(0, 49, 1)
        $aTirage[$i][$j] = $tirage
        $euh[$tirage] += 1
    Next
Next
_ArrayDisplay($aTirage, "tirage1")
_ArrayDisplay($euh, "euh")

[jcaspar]

Trop fort ! On vois bien que la loi des grands nombres se verifie ...

Bon je vais tenter de penser à cette commande spoiler !

Avec mes remerciements !

Jean-Marc

[jcaspar]

POurriez vous svp m'expliquer le fonctionnement ?Je coince un peu sur la comprehension on créer un tableau qui contient les variables tirage que l'on incremente de 1 mais comment sont comptées les occurences ? C'est magique et cela correspond exactement à ce que je souhaitais mais j'aimerais bien comprendre comment cela fonctionne histoire de progresser ....

En vous remerciant pour vos eclaircissements

[orax]

Il y a le tableau $aTirage qui contient les tirages mais il n'est même pas nécessaire. Et il y a le tableau $euh[50] qui contient, au départ, 50 valeurs nulles. J'aurais pu initialiser toutes les valeurs du tableau à 0. C'est ce tableau qui va contenir les occurrences des numéros.
Par exemple, supposons que Random(0, 49, 1) retourne la valeur 5, donc la variable $tirage = 5. $euh[$tirage] += 1 incrémentera de 1 la case 5 du tableau $euh. En somme, nous aurons une occurrence de plus pour le numéro 5.
Avec $tirage = 18, $euh[$tirage] += 1 nous aurons la case $euh[18] incrémentée de 1. Etc.
Pas simple d'expliquer…

[jcaspar]

M erci pour ces explications je comprends déjà bien mieux !

[jguinch]

et le [R] ?

Du coup, c'est un avertissement supplémentaire !
Après plusieurs rappels du règlement et avec 295 au compteur, il devrait y avoir quand même quelques automatismes.
Aucun effort de ta part depuis un bon moment.