Page 1 sur 1
[R] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 14:12
par 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)
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 14:21
par 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
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 15:13
par 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")
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 15:28
par jguinch
jcaspar : est-ce que tu vas te décider à utiliser la balise Spoiler ?!
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 15:37
par 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")
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 16:12
par 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
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 16:49
par 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
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : jeu. 31 juil. 2014 18:47
par 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…
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : ven. 01 août 2014 09:22
par jcaspar
M
erci pour ces explications je comprends déjà bien mieux !
Re: [..] Loto Nombres qui sortent le plus souvent
Posté : ven. 01 août 2014 22:21
par 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.