il faut utiliser les Cnp
C(n,p) = n! /(p!*(n-p)!)
ou ! désigne la fonction factorielle
on prendra ici n= 49 et p = 6
Jérôme
"Jean-mi" a écrit dans le message de
news: 020e01c39805$55c4dfd0$
Bonjour,
Quelqu'un peut-il me donner la formule mathématique et/ou
le mode de calcul en VBA pour calculer le nombre de
possibilités d'obtenir un tirage gagnant du Loto (avec par
exemple 6 boules sur 49)?
D'avance merci. (Je ne sais pas où trouver ce
renseignement.)
Jean-michel
il faut utiliser les Cnp
C(n,p) = n! /(p!*(n-p)!)
ou ! désigne la fonction factorielle
on prendra ici n= 49 et p = 6
Jérôme
"Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 020e01c39805$55c4dfd0$a401280a@phx.gbl...
Bonjour,
Quelqu'un peut-il me donner la formule mathématique et/ou
le mode de calcul en VBA pour calculer le nombre de
possibilités d'obtenir un tirage gagnant du Loto (avec par
exemple 6 boules sur 49)?
D'avance merci. (Je ne sais pas où trouver ce
renseignement.)
Jean-michel
il faut utiliser les Cnp
C(n,p) = n! /(p!*(n-p)!)
ou ! désigne la fonction factorielle
on prendra ici n= 49 et p = 6
Jérôme
"Jean-mi" a écrit dans le message de
news: 020e01c39805$55c4dfd0$
Bonjour,
Quelqu'un peut-il me donner la formule mathématique et/ou
le mode de calcul en VBA pour calculer le nombre de
possibilités d'obtenir un tirage gagnant du Loto (avec par
exemple 6 boules sur 49)?
D'avance merci. (Je ne sais pas où trouver ce
renseignement.)
Jean-michel
Salut! :O)
Voici un exemple :
'***
Option Explicit
Private Sub Form_Load()
Debug.Print ObtenirChances(49, 6) ' 6 / 49
Debug.Print ObtenirChances(47, 7) ' Super 7
End Sub
Private Function Factoriel(ByRef n As Long) As Double
If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
End Function
Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges As
Long) As Double
ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
Factoriel(lNbBoules - lNbPiges))
End Function
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Jérôme VERITE" wrote in message
news:
> il faut utiliser les Cnp
>
> C(n,p) = n! /(p!*(n-p)!)
>
> ou ! désigne la fonction factorielle
>
> on prendra ici n= 49 et p = 6
>
> Jérôme
>
> "Jean-mi" a écrit dans le message
> news: 020e01c39805$55c4dfd0$
> Bonjour,
> Quelqu'un peut-il me donner la formule mathématique et/ou
> le mode de calcul en VBA pour calculer le nombre de
> possibilités d'obtenir un tirage gagnant du Loto (avec par
> exemple 6 boules sur 49)?
>
> D'avance merci. (Je ne sais pas où trouver ce
> renseignement.)
> Jean-michel
>
>
Salut! :O)
Voici un exemple :
'***
Option Explicit
Private Sub Form_Load()
Debug.Print ObtenirChances(49, 6) ' 6 / 49
Debug.Print ObtenirChances(47, 7) ' Super 7
End Sub
Private Function Factoriel(ByRef n As Long) As Double
If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
End Function
Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges As
Long) As Double
ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
Factoriel(lNbBoules - lNbPiges))
End Function
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Jérôme VERITE" <SPAMveritejerome@wanadoo.fr> wrote in message
news:esqbgvAmDHA.684@TK2MSFTNGP09.phx.gbl...
> il faut utiliser les Cnp
>
> C(n,p) = n! /(p!*(n-p)!)
>
> ou ! désigne la fonction factorielle
>
> on prendra ici n= 49 et p = 6
>
> Jérôme
>
> "Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message
> news: 020e01c39805$55c4dfd0$a401280a@phx.gbl...
> Bonjour,
> Quelqu'un peut-il me donner la formule mathématique et/ou
> le mode de calcul en VBA pour calculer le nombre de
> possibilités d'obtenir un tirage gagnant du Loto (avec par
> exemple 6 boules sur 49)?
>
> D'avance merci. (Je ne sais pas où trouver ce
> renseignement.)
> Jean-michel
>
>
Salut! :O)
Voici un exemple :
'***
Option Explicit
Private Sub Form_Load()
Debug.Print ObtenirChances(49, 6) ' 6 / 49
Debug.Print ObtenirChances(47, 7) ' Super 7
End Sub
Private Function Factoriel(ByRef n As Long) As Double
If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
End Function
Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges As
Long) As Double
ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
Factoriel(lNbBoules - lNbPiges))
End Function
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Jérôme VERITE" wrote in message
news:
> il faut utiliser les Cnp
>
> C(n,p) = n! /(p!*(n-p)!)
>
> ou ! désigne la fonction factorielle
>
> on prendra ici n= 49 et p = 6
>
> Jérôme
>
> "Jean-mi" a écrit dans le message
> news: 020e01c39805$55c4dfd0$
> Bonjour,
> Quelqu'un peut-il me donner la formule mathématique et/ou
> le mode de calcul en VBA pour calculer le nombre de
> possibilités d'obtenir un tirage gagnant du Loto (avec par
> exemple 6 boules sur 49)?
>
> D'avance merci. (Je ne sais pas où trouver ce
> renseignement.)
> Jean-michel
>
>
bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai jamais
réussi à trouver la formule pour le banco
(sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
combinaison)
merci
ThunderMusic
"Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
news:
> Salut! :O)
>
> Voici un exemple :
> '***
> Option Explicit
>
> Private Sub Form_Load()
> Debug.Print ObtenirChances(49, 6) ' 6 / 49
> Debug.Print ObtenirChances(47, 7) ' Super 7
> End Sub
>
> Private Function Factoriel(ByRef n As Long) As Double
> If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> End Function
>
> Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges
> Long) As Double
> ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> Factoriel(lNbBoules - lNbPiges))
> End Function
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "Jérôme VERITE" wrote in message
> news:
> > il faut utiliser les Cnp
> >
> > C(n,p) = n! /(p!*(n-p)!)
> >
> > ou ! désigne la fonction factorielle
> >
> > on prendra ici n= 49 et p = 6
> >
> > Jérôme
> >
> > "Jean-mi" a écrit dans le
de
> > news: 020e01c39805$55c4dfd0$
> > Bonjour,
> > Quelqu'un peut-il me donner la formule mathématique et/ou
> > le mode de calcul en VBA pour calculer le nombre de
> > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > exemple 6 boules sur 49)?
> >
> > D'avance merci. (Je ne sais pas où trouver ce
> > renseignement.)
> > Jean-michel
> >
> >
>
>
bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai jamais
réussi à trouver la formule pour le banco
(sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
combinaison)
merci
ThunderMusic
"Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
news:O6Lgi1AmDHA.1948@TK2MSFTNGP12.phx.gbl...
> Salut! :O)
>
> Voici un exemple :
> '***
> Option Explicit
>
> Private Sub Form_Load()
> Debug.Print ObtenirChances(49, 6) ' 6 / 49
> Debug.Print ObtenirChances(47, 7) ' Super 7
> End Sub
>
> Private Function Factoriel(ByRef n As Long) As Double
> If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> End Function
>
> Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges
> Long) As Double
> ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> Factoriel(lNbBoules - lNbPiges))
> End Function
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "Jérôme VERITE" <SPAMveritejerome@wanadoo.fr> wrote in message
> news:esqbgvAmDHA.684@TK2MSFTNGP09.phx.gbl...
> > il faut utiliser les Cnp
> >
> > C(n,p) = n! /(p!*(n-p)!)
> >
> > ou ! désigne la fonction factorielle
> >
> > on prendra ici n= 49 et p = 6
> >
> > Jérôme
> >
> > "Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le
de
> > news: 020e01c39805$55c4dfd0$a401280a@phx.gbl...
> > Bonjour,
> > Quelqu'un peut-il me donner la formule mathématique et/ou
> > le mode de calcul en VBA pour calculer le nombre de
> > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > exemple 6 boules sur 49)?
> >
> > D'avance merci. (Je ne sais pas où trouver ce
> > renseignement.)
> > Jean-michel
> >
> >
>
>
bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai jamais
réussi à trouver la formule pour le banco
(sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
combinaison)
merci
ThunderMusic
"Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
news:
> Salut! :O)
>
> Voici un exemple :
> '***
> Option Explicit
>
> Private Sub Form_Load()
> Debug.Print ObtenirChances(49, 6) ' 6 / 49
> Debug.Print ObtenirChances(47, 7) ' Super 7
> End Sub
>
> Private Function Factoriel(ByRef n As Long) As Double
> If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> End Function
>
> Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges
> Long) As Double
> ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> Factoriel(lNbBoules - lNbPiges))
> End Function
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "Jérôme VERITE" wrote in message
> news:
> > il faut utiliser les Cnp
> >
> > C(n,p) = n! /(p!*(n-p)!)
> >
> > ou ! désigne la fonction factorielle
> >
> > on prendra ici n= 49 et p = 6
> >
> > Jérôme
> >
> > "Jean-mi" a écrit dans le
de
> > news: 020e01c39805$55c4dfd0$
> > Bonjour,
> > Quelqu'un peut-il me donner la formule mathématique et/ou
> > le mode de calcul en VBA pour calculer le nombre de
> > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > exemple 6 boules sur 49)?
> >
> > D'avance merci. (Je ne sais pas où trouver ce
> > renseignement.)
> > Jean-michel
> >
> >
>
>
bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai jamais
réussi à trouver la formule pour le banco
(sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
combinaison)
merci
ThunderMusic
"Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
news:
> Salut! :O)
>
> Voici un exemple :
> '***
> Option Explicit
>
> Private Sub Form_Load()
> Debug.Print ObtenirChances(49, 6) ' 6 / 49
> Debug.Print ObtenirChances(47, 7) ' Super 7
> End Sub
>
> Private Function Factoriel(ByRef n As Long) As Double
> If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> End Function
>
> Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges
> Long) As Double
> ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> Factoriel(lNbBoules - lNbPiges))
> End Function
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "Jérôme VERITE" wrote in message
> news:
> > il faut utiliser les Cnp
> >
> > C(n,p) = n! /(p!*(n-p)!)
> >
> > ou ! désigne la fonction factorielle
> >
> > on prendra ici n= 49 et p = 6
> >
> > Jérôme
> >
> > "Jean-mi" a écrit dans le
de
> > news: 020e01c39805$55c4dfd0$
> > Bonjour,
> > Quelqu'un peut-il me donner la formule mathématique et/ou
> > le mode de calcul en VBA pour calculer le nombre de
> > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > exemple 6 boules sur 49)?
> >
> > D'avance merci. (Je ne sais pas où trouver ce
> > renseignement.)
> > Jean-michel
> >
> >
>
>
bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai jamais
réussi à trouver la formule pour le banco
(sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
combinaison)
merci
ThunderMusic
"Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
news:O6Lgi1AmDHA.1948@TK2MSFTNGP12.phx.gbl...
> Salut! :O)
>
> Voici un exemple :
> '***
> Option Explicit
>
> Private Sub Form_Load()
> Debug.Print ObtenirChances(49, 6) ' 6 / 49
> Debug.Print ObtenirChances(47, 7) ' Super 7
> End Sub
>
> Private Function Factoriel(ByRef n As Long) As Double
> If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> End Function
>
> Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges
> Long) As Double
> ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> Factoriel(lNbBoules - lNbPiges))
> End Function
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "Jérôme VERITE" <SPAMveritejerome@wanadoo.fr> wrote in message
> news:esqbgvAmDHA.684@TK2MSFTNGP09.phx.gbl...
> > il faut utiliser les Cnp
> >
> > C(n,p) = n! /(p!*(n-p)!)
> >
> > ou ! désigne la fonction factorielle
> >
> > on prendra ici n= 49 et p = 6
> >
> > Jérôme
> >
> > "Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le
de
> > news: 020e01c39805$55c4dfd0$a401280a@phx.gbl...
> > Bonjour,
> > Quelqu'un peut-il me donner la formule mathématique et/ou
> > le mode de calcul en VBA pour calculer le nombre de
> > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > exemple 6 boules sur 49)?
> >
> > D'avance merci. (Je ne sais pas où trouver ce
> > renseignement.)
> > Jean-michel
> >
> >
>
>
bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai jamais
réussi à trouver la formule pour le banco
(sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
combinaison)
merci
ThunderMusic
"Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
news:
> Salut! :O)
>
> Voici un exemple :
> '***
> Option Explicit
>
> Private Sub Form_Load()
> Debug.Print ObtenirChances(49, 6) ' 6 / 49
> Debug.Print ObtenirChances(47, 7) ' Super 7
> End Sub
>
> Private Function Factoriel(ByRef n As Long) As Double
> If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> End Function
>
> Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef lNbPiges
> Long) As Double
> ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> Factoriel(lNbBoules - lNbPiges))
> End Function
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
> "Jérôme VERITE" wrote in message
> news:
> > il faut utiliser les Cnp
> >
> > C(n,p) = n! /(p!*(n-p)!)
> >
> > ou ! désigne la fonction factorielle
> >
> > on prendra ici n= 49 et p = 6
> >
> > Jérôme
> >
> > "Jean-mi" a écrit dans le
de
> > news: 020e01c39805$55c4dfd0$
> > Bonjour,
> > Quelqu'un peut-il me donner la formule mathématique et/ou
> > le mode de calcul en VBA pour calculer le nombre de
> > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > exemple 6 boules sur 49)?
> >
> > D'avance merci. (Je ne sais pas où trouver ce
> > renseignement.)
> > Jean-michel
> >
> >
>
>
On doit pouvoir trouver cela dans un bon bouquin de terminale S.
Je ne connais pas le Banco, mais un peu les proba. je vais essayer
d'expliquer
Il me parait clair que la probabilité de gagner dépend du nombre de
jouer. Ici deux cas de figure : On joue toujours 10 nombres et on gagne à
partir du moment où l'on a trois nombres de bon (on gagne plus si on en a
quatre, etc). Ou alors ce jeu consiste çà jouer 3, ou quatre ;.. etc et on
gagne si tout ce que l'on a joué sort ?
Cas 1 : Proba de gains = nombre de grille gagnante/nombre de grilles
possibles.
Nombres de grilles possibles : C(10,70) possibilités
soit (fact(70))/(fact(60)*fact(10))
donc 396 704 524 216, ou encore 396 milliards 704 millions 524 mille 216.
Nombre de grilles gagnantes : Pour calculer cela il vaut mieux calculer le
nombre de grilles perdantes.
Les grilles perdantes peuvent avoir 0 bon numéro : C(10,60) (les dix
sont parmi les les soixante qui n'ont pas été tirés)
Soit 75 394 027 566
Ou encore 1 bon numéro et 9 faux : C(1,10)*C(9,60)
Soit 147 831 426 600
Ou encore deux bon numéros et huit faux : C(2,10)*C(8,60)
Soit 115 137 938 025
Donc au total nous avons : 338 363 392 191 grilles perdantes
Soit 58 341 132 025 grilles gagnantes (Grilles totales - Grilles
Donc la probabilité de gagner quelque chose est de 0,15 (15%)
Je ne garantis pas les calculs mais ça doit être ça.
Pour la deuxième hypothèse, je laisse cela pour plus tard.
"ThunderMusic" a écrit dans le message de
news:%
> bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai
> réussi à trouver la formule pour le banco
>
> (sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
> combinaison)
>
> merci
>
> ThunderMusic
>
> "Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
> news:
> > Salut! :O)
> >
> > Voici un exemple :
> > '***
> > Option Explicit
> >
> > Private Sub Form_Load()
> > Debug.Print ObtenirChances(49, 6) ' 6 / 49
> > Debug.Print ObtenirChances(47, 7) ' Super 7
> > End Sub
> >
> > Private Function Factoriel(ByRef n As Long) As Double
> > If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> > End Function
> >
> > Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef
As
> > Long) As Double
> > ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> > Factoriel(lNbBoules - lNbPiges))
> > End Function
> > '***
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> >
> > Merci de poster les réponses au groupe afin d'en faire profiter à tous
> > "Jérôme VERITE" wrote in message
> > news:
> > > il faut utiliser les Cnp
> > >
> > > C(n,p) = n! /(p!*(n-p)!)
> > >
> > > ou ! désigne la fonction factorielle
> > >
> > > on prendra ici n= 49 et p = 6
> > >
> > > Jérôme
> > >
> > > "Jean-mi" a écrit dans le
message
> de
> > > news: 020e01c39805$55c4dfd0$
> > > Bonjour,
> > > Quelqu'un peut-il me donner la formule mathématique et/ou
> > > le mode de calcul en VBA pour calculer le nombre de
> > > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > > exemple 6 boules sur 49)?
> > >
> > > D'avance merci. (Je ne sais pas où trouver ce
> > > renseignement.)
> > > Jean-michel
> > >
> > >
> >
> >
>
>
On doit pouvoir trouver cela dans un bon bouquin de terminale S.
Je ne connais pas le Banco, mais un peu les proba. je vais essayer
d'expliquer
Il me parait clair que la probabilité de gagner dépend du nombre de
jouer. Ici deux cas de figure : On joue toujours 10 nombres et on gagne à
partir du moment où l'on a trois nombres de bon (on gagne plus si on en a
quatre, etc). Ou alors ce jeu consiste çà jouer 3, ou quatre ;.. etc et on
gagne si tout ce que l'on a joué sort ?
Cas 1 : Proba de gains = nombre de grille gagnante/nombre de grilles
possibles.
Nombres de grilles possibles : C(10,70) possibilités
soit (fact(70))/(fact(60)*fact(10))
donc 396 704 524 216, ou encore 396 milliards 704 millions 524 mille 216.
Nombre de grilles gagnantes : Pour calculer cela il vaut mieux calculer le
nombre de grilles perdantes.
Les grilles perdantes peuvent avoir 0 bon numéro : C(10,60) (les dix
sont parmi les les soixante qui n'ont pas été tirés)
Soit 75 394 027 566
Ou encore 1 bon numéro et 9 faux : C(1,10)*C(9,60)
Soit 147 831 426 600
Ou encore deux bon numéros et huit faux : C(2,10)*C(8,60)
Soit 115 137 938 025
Donc au total nous avons : 338 363 392 191 grilles perdantes
Soit 58 341 132 025 grilles gagnantes (Grilles totales - Grilles
Donc la probabilité de gagner quelque chose est de 0,15 (15%)
Je ne garantis pas les calculs mais ça doit être ça.
Pour la deuxième hypothèse, je laisse cela pour plus tard.
"ThunderMusic" <NOdanylat@sympatico.caSPAM> a écrit dans le message de
news:%2387ky2KmDHA.2080@TK2MSFTNGP10.phx.gbl...
> bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai
> réussi à trouver la formule pour le banco
>
> (sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
> combinaison)
>
> merci
>
> ThunderMusic
>
> "Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
> news:O6Lgi1AmDHA.1948@TK2MSFTNGP12.phx.gbl...
> > Salut! :O)
> >
> > Voici un exemple :
> > '***
> > Option Explicit
> >
> > Private Sub Form_Load()
> > Debug.Print ObtenirChances(49, 6) ' 6 / 49
> > Debug.Print ObtenirChances(47, 7) ' Super 7
> > End Sub
> >
> > Private Function Factoriel(ByRef n As Long) As Double
> > If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> > End Function
> >
> > Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef
As
> > Long) As Double
> > ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> > Factoriel(lNbBoules - lNbPiges))
> > End Function
> > '***
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> >
> > Merci de poster les réponses au groupe afin d'en faire profiter à tous
> > "Jérôme VERITE" <SPAMveritejerome@wanadoo.fr> wrote in message
> > news:esqbgvAmDHA.684@TK2MSFTNGP09.phx.gbl...
> > > il faut utiliser les Cnp
> > >
> > > C(n,p) = n! /(p!*(n-p)!)
> > >
> > > ou ! désigne la fonction factorielle
> > >
> > > on prendra ici n= 49 et p = 6
> > >
> > > Jérôme
> > >
> > > "Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le
message
> de
> > > news: 020e01c39805$55c4dfd0$a401280a@phx.gbl...
> > > Bonjour,
> > > Quelqu'un peut-il me donner la formule mathématique et/ou
> > > le mode de calcul en VBA pour calculer le nombre de
> > > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > > exemple 6 boules sur 49)?
> > >
> > > D'avance merci. (Je ne sais pas où trouver ce
> > > renseignement.)
> > > Jean-michel
> > >
> > >
> >
> >
>
>
On doit pouvoir trouver cela dans un bon bouquin de terminale S.
Je ne connais pas le Banco, mais un peu les proba. je vais essayer
d'expliquer
Il me parait clair que la probabilité de gagner dépend du nombre de
jouer. Ici deux cas de figure : On joue toujours 10 nombres et on gagne à
partir du moment où l'on a trois nombres de bon (on gagne plus si on en a
quatre, etc). Ou alors ce jeu consiste çà jouer 3, ou quatre ;.. etc et on
gagne si tout ce que l'on a joué sort ?
Cas 1 : Proba de gains = nombre de grille gagnante/nombre de grilles
possibles.
Nombres de grilles possibles : C(10,70) possibilités
soit (fact(70))/(fact(60)*fact(10))
donc 396 704 524 216, ou encore 396 milliards 704 millions 524 mille 216.
Nombre de grilles gagnantes : Pour calculer cela il vaut mieux calculer le
nombre de grilles perdantes.
Les grilles perdantes peuvent avoir 0 bon numéro : C(10,60) (les dix
sont parmi les les soixante qui n'ont pas été tirés)
Soit 75 394 027 566
Ou encore 1 bon numéro et 9 faux : C(1,10)*C(9,60)
Soit 147 831 426 600
Ou encore deux bon numéros et huit faux : C(2,10)*C(8,60)
Soit 115 137 938 025
Donc au total nous avons : 338 363 392 191 grilles perdantes
Soit 58 341 132 025 grilles gagnantes (Grilles totales - Grilles
Donc la probabilité de gagner quelque chose est de 0,15 (15%)
Je ne garantis pas les calculs mais ça doit être ça.
Pour la deuxième hypothèse, je laisse cela pour plus tard.
"ThunderMusic" a écrit dans le message de
news:%
> bonjour, et pour le Banco? Les autres, je les savais, mais je n'ai
> réussi à trouver la formule pour le banco
>
> (sur 70 chiffres, 20 sont tirés, choix de prendre de 3 à 10 chiffres par
> combinaison)
>
> merci
>
> ThunderMusic
>
> "Zoury" <yanick_lefebvre at hotmail dot com> wrote in message
> news:
> > Salut! :O)
> >
> > Voici un exemple :
> > '***
> > Option Explicit
> >
> > Private Sub Form_Load()
> > Debug.Print ObtenirChances(49, 6) ' 6 / 49
> > Debug.Print ObtenirChances(47, 7) ' Super 7
> > End Sub
> >
> > Private Function Factoriel(ByRef n As Long) As Double
> > If n < 2 Then Factoriel = 1 Else Factoriel = n* Factoriel(n - 1)
> > End Function
> >
> > Private Function ObtenirChances(ByRef lNbBoules As Long, ByRef
As
> > Long) As Double
> > ObtenirChances = Factoriel(lNbBoules) / (Factoriel(lNbPiges) *
> > Factoriel(lNbBoules - lNbPiges))
> > End Function
> > '***
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> >
> > Merci de poster les réponses au groupe afin d'en faire profiter à tous
> > "Jérôme VERITE" wrote in message
> > news:
> > > il faut utiliser les Cnp
> > >
> > > C(n,p) = n! /(p!*(n-p)!)
> > >
> > > ou ! désigne la fonction factorielle
> > >
> > > on prendra ici n= 49 et p = 6
> > >
> > > Jérôme
> > >
> > > "Jean-mi" a écrit dans le
message
> de
> > > news: 020e01c39805$55c4dfd0$
> > > Bonjour,
> > > Quelqu'un peut-il me donner la formule mathématique et/ou
> > > le mode de calcul en VBA pour calculer le nombre de
> > > possibilités d'obtenir un tirage gagnant du Loto (avec par
> > > exemple 6 boules sur 49)?
> > >
> > > D'avance merci. (Je ne sais pas où trouver ce
> > > renseignement.)
> > > Jean-michel
> > >
> > >
> >
> >
>
>
