programme de probabilité pour TI 82 |
Auteur |
Message |
alexdu44340
Invité
|
Posté le : Ven 15 Jui 2012, 21:15
|
|
|
étant en ère scientifique et fan de programmation en basic, je me suis dit: pourquoi ne pas partager mes programmes.
Donc voici un programme de probabilité utilisant les coefficients binomiaux très utile.
ce programme fonctionne de la façon suivante:
étape 1)
- Vous choisissez si vous affichez les valeurs intermédiaires (ce sera expliqué plus tard)
- Vous rentrer le nombres de valeurs que vous souhaitez rentrer.
- Vous écrivez la probabilité de l’évènement que vous avez choisit.
étape 2)
- Vous rentrez le nombre de cas possibles.
- Vous rentrez le nombre correspondant a la totalité des cas.
- (Si vous avez choisit oui au début du programme) On vous affiche ne nombre de chemins sur l'arbre de probabilité correspondant, c'est le nombre donné par le triangle de pascal (pour ceux qui connaissent).
- On vous affiche la probabilité correspondante.
étape 3)
- On vous affiche la probabilité totale de vos valeurs.
- On vous affiche la probabilité 1-P afin de vous aidez.
Voila pour l'explication donc maintenant passons au code ( je suis sous TI 82 stat):
Code |
0->Z
EffEcr
Menu("AFF VALEURS","OUI",0,"NON",1
lbl 0
0->W
Goto 3
lbl 1
1->W
lbl 3
Input "NMB VALEURS:",N
Input "PROBABILITE",D
For(S,1,N
EffEcr
Input "NOMBRE:",A
Input "PARMIS:",B
lbl C
(B Combinaison A)->C
C*(DÂ)*((1-D)^(B-A)->[teta] [teta] = [touche aplha] + [touche 3]
If W=0:Then
Disp "NMB CHEMIN:",C
Disp "PROBABILITE:",[teta]
Pause
End
Z+[teta]->Z
EffEcr
End
EffEcr
Disp "PROBABILITE","TOTALE:",Z,"INVERSE","1-P=",1-Z
Pause
EffEcr
Disp "","","PRGM BY","ALEXDU44340"
Pause
EffEcr
Output(1,1,"
|
Voila.
Si vous avez des questions...
Sinon bonne continuation a tous dans le domaine de la programation.
|
|
|
|
F-BVXT
Autorisation : Membre
Nb de messages : 178
Inscrit le : Dim 27 Mai 2012, 20:38
|
Posté le : Ven 15 Jui 2012, 21:21
|
|
|
Bonne idée de programme. J'avais voulu en faire un mais comme c'est la fin de l'année et que le BAC approche...
Par contre, tu as marqué : C*(DÂ)*((1-D)^(B-A)->[teta]
Le  est en fait un A et il s'agit d'une faute de frappe ou alors c'est autre chose ?
---------------------- Il y a 10 types de personnes dans le monde : celles qui comprennent le binaire et celles qui ne le comprennent pas. |
|
|
|
snap
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Ven 15 Jui 2012, 22:22
|
|
|
2 petits truc :
Code | 0 -> W
Goto 3
Peut se noter
EffVar WGoto 3 |
Et :
Code | If W=0
Peut se noter
If non(W |
---------------------- Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
|
|
|
F-BVXT
Autorisation : Membre
Nb de messages : 178
Inscrit le : Dim 27 Mai 2012, 20:38
|
Posté le : Ven 15 Jui 2012, 22:37
|
|
|
Oui, il y a quelque petits trucs que tu pourrais optimiser comme :
Qui peut s'écrire :
Et :
Code | (B Combinaison A)->C
C*(DÂ)*((1-D)^(B-A)->[teta] |
Il n'y a pas besoin de parenthèse avant les : et ->, donc :
Code | (B Combinaison A->C
C*(DÂ)*((1-D)^(B-A->[teta] |
---------------------- Il y a 10 types de personnes dans le monde : celles qui comprennent le binaire et celles qui ne le comprennent pas. |
|
|
|
snap
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Ven 15 Jui 2012, 22:42
|
|
|
En parlant de petit truc :
Code | Disp "","","PRGM BY","ALEXDU44340"
Pause |
peut s'écrire
Code | Disp "","","PRGM BY
Pause "ALEXDU44340 |
---------------------- Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
|
|
|
The K
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Ven 15 Jui 2012, 22:48
|
|
|
As tu fait ce programme en connaissant les expressions BinomFRep( et Binom-je-sais-pas-quoi( ? (dans le menu distrib)
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
F-BVXT
Autorisation : Membre
Nb de messages : 178
Inscrit le : Dim 27 Mai 2012, 20:38
|
Posté le : Ven 15 Jui 2012, 22:51
|
|
|
Citer | Binom-je-sais-pas-quoi( ? |
C'est binomFdp(
---------------------- Il y a 10 types de personnes dans le monde : celles qui comprennent le binaire et celles qui ne le comprennent pas. |
|
|
|
The K
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Ven 15 Jui 2012, 22:54
|
|
|
Oui merci lol xD
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
|
|
|
alexdu44340
Autorisation : Membre
Nb de messages : 1
Inscrit le : Ven 15 Jui 2012, 19:48
|
Posté le : Sam 16 Jui 2012, 9:55
|
|
|
effectivement comme vous le soulignez, ce programme n'est pas du tout optimisé mais cependant est suffisant pour vous aidez en probabilité même si certaines commandes comme binomFdp( ne sont pas utilisées.
J'utilise les programmes de mathématiques principalement afin de mettre en application les différentes connaissances de mes chapitres, même si ceux-ci ne sont pas optimisés.
Cependant merci d'avoir essayé ce programme et bonne continuation a tous.
|
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Sam 16 Jui 2012, 14:42
|
|
|
les fonctions de la loi binomiale, je me souviens plus comment elles fonctionnent... Je pense aussi qu'elles pourraient remplacer vite fait ce programme.
J'ai l'intention de pondre un big-programme stats-probas au cours de l'année prochaine, quand j'aurai bien revu en cours certains points pas clairs.
Si les fonctions de la loi binomiale ne marchent pas, pourrais-je réutiliser ton programme ?
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 16 Jui 2012, 17:59
|
|
|
Ce n'est pas compliqué et on peut bien s'en passer.
La méthode est la même que pour le binôme de Newton ( (a+b)^n )
exemple
Puisque vous proposez les fonctions binômiales, je vais innover. (d'abord normal puis avec binomeFdp)
Code | Prompt P,N
Disp "COEFFS :
Pause seq(N nCr P,P,0,N
Disp "TERMES COMPLETS:
Pause Ans*seq(P^K*(1-K)^(N-K),K,0,N
Disp "TOTAL :
Pause sum(Ans |
Code | Prompt P,N
Disp "COEFFS :
Pause seq(N nCr P,P,0,N
Disp "TERMES COMPLETS:
Pause binompdf(N,P
Disp "TOTAL :
Pause sum(Ans |
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
|
|
|
The K
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 16 Jui 2012, 22:43
|
|
|
Euh P et n ce sont les Nombre de trials et P probabilité de celui ci ?
À Persa : les fonctions dans Le menu distrib marchent très bien.
Elles fonctionnent de la maniera suivante :
BinomFdp(nombre d'essais, probabilité, résultat=X?
--> manuel ?
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 17 Jui 2012, 0:41
|
|
|
J'ai justement consulté le manuel mais il est mal écrit sur ce point.
f(k)=(p parmi n)*p^k*(1-p)^(n-k
binompdf(N,P) (BinomeFdp en français) calcule chaque terme f(k) pour N et P donnés et pour k un entier compris entre 0 et N.
binompdf(N,P,{1,2,3}) effectue le calcul pour k valant successivement 1,2,3.
En clair cela permet de calculer chacun des termes du calcul de probabilité et éventuellement séparément.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Dim 17 Jui 2012, 9:12
|
|
|
bien, chef !
|
|
|
|