Code pour statistique

Version imprimable

16/10/2010, 21h09
Jaguar45

Code pour statistique

Bonjour à tous,
Pour une illustration d'un projet sur les statistique, je voudrais tester le système de la loterie (mon prof est accroc :lol:). Pour ce faire, je dois donc tester toutes les combinaison de 5 chiffres de 1 à 49 ( et chaque chiffre à son % de chance de sortie)
Donc tester :
1-2-3-4-5
1-2-3-4-6
....
1-2-3-4-49
1-2-3-5-6
...
1-2-3-5-49
1-2-3-6-7
...
1-2-4-5-6...
...jusqu'à 45.46.47.48.49
J'avais donc pensé à faire (%n°1+%n°2+%n°3+%n°4+%n°5)/5 et afficher sur excel la combinaison et le % calculé correspondant.
Mais la, problème:cry:, mettre plus de 13,8millions de combinaison sur excel...
Donc je me suis dit, mettre juste les 10.000 ou 20.000 meilleures et les 10.000 ou 20.000 moins bonnes(avec le % bien sur).
Mais la, re-problème, ca va bientôt faire 2 semaines, et voila ma tête a force de cogner sur l'ordi ::aie: !
Donc je vous remercie déjà pour votre aide !
17/10/2010, 09h47
ClaudeLELOUP

Bonjour,

Pas trop compris ce que tu veux faire.
Au passage, il n’y a que 282.475.249 arrangements et non 13,8 millions.

Pour illustrer tu pourrais :

Définir un tableau de 49 colonnes.
Les initialiser de 01 à 49 (pour que le nbre de positions soit le même et ne pas confondre l'arrangement 1-13 avec 11-3)
lancer une boucle pour
- composer une chaîne de 5 choix aléatoires de valeur.
- alimenter une table avec chaque arrangement
la boucle s’arrêtera lorsque la capacité maximale de la table sera dépassée.

Alors il te suffira de calculer le nombre d’occurrences de chaque arrangement (une requête regroupement) et faire un graphique montrant leur dispersion (si ton programme est bien écrit, une courbe de Gausse).
17/10/2010, 15h00
Jaguar45

Bonjour Claude,
en effet, je me suis trompé sur le nombre de combinaison (j'avais pris en compte un numéro complémentaire).

Voila où j'en suis rendu aujourd'hui : StatLoterie.
Comme on peut le voir, je n'arrive pas à passer de 1-2-3-48-49 à 1-2-4-5-6. (Voir macro).
Aussi je n'est pas très bien compris comment faire pour calculer le nombre d’occurrences de chaque arrangement.
17/10/2010, 15h10
ClaudeLELOUP

Pour le lien, je ne vois pas bien le rapport.
Je ne sais si tu suis un cours de statistique ou un cours de programmation.
Explique un peu le contexte de ce que tu veux faire.
Et dis dans quel domaine tu as d'abord cherché et sur quoi tu butes.

Le lien, c'est pour télécharger mon excel et ainsi pouvoir regarder mes macros (et leur défauts).
En effet, j'ai suivi un cours d'info mais ce n'est pas ma matière principale à la fac.
Sinon, tout est marqué dans l'excel, c'est exactement le système de la loterie, il y a 49 boules, et je cherche la combinaison des 5 avec les plus de chances de sortir.
Pour ce faire, j'ai trouvé (par une étude préliminaire), le pourcentage de sorti de chaque boules pour un prochain tirage.
Et la j'ai réussi à trouver le pourcentage de sorti de la combinaison
1-2-3-4-5 à 1-2-3-48-49. Et je cherche à modifier la macro pour quelle passe en 1-2-4-5-6.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub combi()
Dim ligne As Long, v As Integer
v = 44
ligne = 5
Cells(ligne - 1, "E") = 4   'AMMORCAGE num5
Do Until Cells(ligne - 1, "E") = 49
Cells(ligne, "E") = Cells(ligne - 1, "E") + 1
ligne = ligne + 1
Loop                           'FIN AMMORCE num5
Do Until r = 44                'DEBUT REPET num5
v = v - 1
Cells(ligne, "E") = Cells(ligne - 1, "E") - v
Do Until Cells(ligne, "E") = 49
Cells(ligne + 1, "E") = Cells(ligne, "E") + 1
ligne = ligne + 1
Loop
Cells(ligne, "D") = 0
ligne = ligne + 1
r = r + 1
Loop                           'FIN DE REPET num5
 
ligne = 5                       'DEbut num4
Cells(ligne, "D") = 4
Do Until IsEmpty(Cells(ligne, "E"))
        If Cells(ligne, "E") = 49 Then
            'v = v + 1
            Cells(ligne + 1, "D") = Cells(ligne - 1, "D") + 1
        Else
            Cells(ligne + 1, "D") = Cells(ligne, "D")
        End If
    ligne = ligne + 1
Loop
Cells(ligne, "D").Clear         'fin num4
 
ligne = 5                       'DEbut num3
Cells(ligne, "C") = 3
Do Until IsEmpty(Cells(ligne, "D"))
        If Cells(ligne, "D") = 48 Then
            'v = v + 1
            Cells(ligne + 1, "C") = Cells(ligne - 1, "C") + 1
        Else
            Cells(ligne + 1, "C") = Cells(ligne, "C")
        End If
    ligne = ligne + 1
Loop
Cells(ligne, "C").Clear            'fin num3
 
ligne = 5                       'DEbut num2
Cells(ligne, "B") = 2
Do Until IsEmpty(Cells(ligne, "C"))
        If Cells(ligne, "C") = 47 Then
            'v = v + 1
            Cells(ligne + 1, "B") = Cells(ligne - 1, "B") + 1
        Else
            Cells(ligne + 1, "B") = Cells(ligne, "B")
        End If
    ligne = ligne + 1
Loop
Cells(ligne, "B").Clear            'fin num2
 
ligne = 5                       'DEbut num1
Cells(ligne, "A") = 1
Do Until IsEmpty(Cells(ligne, "B"))
        If Cells(ligne, "B") = 48 Then
            'v = v + 1
            Cells(ligne + 1, "A") = Cells(ligne - 1, "A") + 1
        Else
            Cells(ligne + 1, "A") = Cells(ligne, "A")
        End If
    ligne = ligne + 1
Loop
Cells(ligne, "A").Clear            'fin num1
End Sub

17/10/2010, 15h42
ClaudeLELOUP

Désolé de ne pouvoir t'aider.
Tu te trouves dans un forum Access et non Excel.
Bonne chance !
17/10/2010, 17h08
Jaguar45

Oh pardon, je suis désolé.
Mais merci quand même:ccool:
Je vais donc faire un tour dans la section excel.