Générateur de dés...

[Ar-S]

@Shadow @sph @venom @Mindphazer
On arrête là les débats stériles s'il vous plait. On parle code.

[SPH]

Ma contribution sur le lancé de 3 dés :

Code : Tout sélectionner

; Stat sur le lancé de 3 dés (SPH(2025))

lancer=10000
;;;

Dim de(3,lancer)
Dim resultat(lancer)
;;;

For i=1 To lancer
  x=0
  For nb=1 To 3
    de(nb,i)=Random(5)+1
    x+de(nb,i)  
  Next
  resultat(i)=x
Next
;;;

Dim stat(18)

For i=1 To lancer
  stat(resultat(i))+1  
Next
;;;

Debug "Voici les stats sur les lancés ("+Str(lancer)+") de 3 dés"
Debug ""
For i=3 To 18
  Debug "Résultat '"+Str(i)+"' = "+Str(stat(i))
Next

Voici les stats sur les lancés (10000) de 3 dés

Résultat '3' = 54
Résultat '4' = 136
Résultat '5' = 285
Résultat '6' = 433
Résultat '7' = 686
Résultat '8' = 991
Résultat '9' = 1167
Résultat '10' = 1270
Résultat '11' = 1241
Résultat '12' = 1159
Résultat '13' = 959
Résultat '14' = 713
Résultat '15' = 442
Résultat '16' = 286
Résultat '17' = 136
Résultat '18' = 42

10 et 11 sortent souvent.

[Shadow]

De toute façon, le "aléatoire" informatique n'est pas réellement du aléatoire à proprement parler.
On pourrait dire en quelque sorte que c'est truqué, sans l'être, c'est le système informatique qui est comme ça !

Si tu veux t'amuser, SPH, prends 3 dés de 1 à 6 et fais des lancers, filme les lancers.
Je pourrais aussi le faire, bien sûr.

Alors évidemment, tu en feras jamais 50 000 Mdr, mais déjà sur 100 lancer, tu aurais une certaine petite idée des résultats !
Voici ce que ça donne chez moi:

Voici les stats sur les lancés (10000) de 3 dés

Résultat '3' = 41
Résultat '4' = 136
Résultat '5' = 250
Résultat '6' = 471
Résultat '7' = 737
Résultat '8' = 958
Résultat '9' = 1190
Résultat '10' = 1291
Résultat '11' = 1217
Résultat '12' = 1112
Résultat '13' = 995
Résultat '14' = 668
Résultat '15' = 477
Résultat '16' = 270
Résultat '17' = 144
Résultat '18' = 43

Comme tu vois, 10 et 11 ressortent le plus souvent, mais ce n'est pas un bug, c'est une moyenne plus ou moins.
Mais ce qui serait intéréssant c'est de savoir le résultat par dée, en gros, combien de 1, de 2..... et de 6, sur X lancé !

[Ar-S]

Une version un peu plus condensée.

Code : Tout sélectionner

lancer = 9999

Dim resultat(lancer)
Dim stat(18)

For i = 0 To lancer - 1
  rez = 0
  For nb = 1 To 3
    jet = Random(6, 1)
    rez + jet
  Next
  resultat(i) = rez
  stat(rez) + 1
Next

Debug "Voici les stats sur " + Str(lancer) + " lancés de 3 dés"
Debug ""

For i = 3 To 18
  Debug "Résultat " + Str(i) + " = " + Str(stat(i)) + " fois"
Next

En règle générale, les chiffres médians sont aussi plus présents ici.


J'avais fait un simulateur de lancé de dès en 2016.
Sources toujours dispo ici : https://share.ldvmultimedia.com/faitesvosjeux.rar

[SPH]

...mais déjà sur 100 lancer, tu aurais une certaine petite idée des résultats !

moins il y a de lancé, moins bonne seront les statistiques.

J'exagère ton propos pour que tu comprennes :

faisons déjà sur 5 lancer de 2 dés, tu aurais une certaine petite idée des résultats !

Faux
car:

Résultat '2' = 0
Résultat '3' = 1
Résultat '4' = 3
Résultat '5' = 0
Résultat '6' = 1
Résultat '7' = 0
Résultat '8' = 0
Résultat '9' = 0
Résultat '10' = 0
Résultat '11' = 0
Résultat '12' = 0

'4' arrive largement devant. Pourtant, comme on n'a pas beaucoup de lancés, les résultats sont trompeurs.

[Ar-S]

Il ne faut pas oublier qu'il y a, avec le cumule de dès (2 pour l'exemple), plus de chance de faire des 7 que des 2 par exemple.
7 tu peux l'obtenir avec 1,6 avec 2,5 avec 3,4 et 4,3 etc...
Alors que 2 tu dois faire 1 et 1 épicétout... Pareil pour 12
Tu auras donc env 16% de faire un 7 en jetant 2 dès et moins de 3% de faire un 2 ou un 12

Après la chance existe mais les proba sont là.

[Shadow]

Sauf que, moi, à la base, je parlais de probabilité de dé (un dé), pas de cumul, juste le numero entre 1 et 6 !
Donc sur 10 000 000 de lancers de 3 dé par exemple, combien de 1.....6
Et puis, c'est bien aussi de faire des stats, comme j'avais fait, savoir le plus de fois qu'un numéro est sorti à la suite, etc, je sais plus les tests que je fesais.

Donc maintenant que tu as fait ça, tu le fais pour de vrai, bien sûr, pas 10 000 000 de fois, mais déjà 100 lancers de dés, voire ou plus !
Les vraies dés auront une probabilité plus linéaire, alors que l'informatique, au bout d'un moment, ça va partir en vrille, avec ma méthode, elle était surement pas bonne.

Faudrait que je refasse des tests tien.

[SPH]

Je pense que pour un dé, il y a 1/6eme de chance de faire chaque nombre. C'est logique mais ca ne se calcule pas (un ordi ou bien des vrais lancés ne retiennent pas les numéros précédents pour donner raison aux chiffres manquants)


(Waouwww, c'est beau ce que je viens de dire !)