Poster un nouveau sujet Poster une réponse
programme de probabilité pour TI 82
Auteur Message
alexdu44340
Invité
Posté le : Ven 15 Jui 2012, 21:15   Citer 

é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.

  Haut de page Bas de page 
 
F-BVXT



Autorisation : Membre
Nb de messages : 178
Inscrit le : Dim 27 Mai 2012, 20:38
Posté le : Ven 15 Jui 2012, 21:21   Citer 

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.
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Ven 15 Jui 2012, 22:22   Citer 

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 happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
F-BVXT



Autorisation : Membre
Nb de messages : 178
Inscrit le : Dim 27 Mai 2012, 20:38
Posté le : Ven 15 Jui 2012, 22:37   Citer 

Oui, il y a quelque petits trucs que tu pourrais optimiser comme :

Code
0->Z


Qui peut s'écrire :

Code
EffVar Z


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.
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Ven 15 Jui 2012, 22:42   Citer 

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 happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Ven 15 Jui 2012, 22:48   Citer 

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 ...
 Adresse email Haut de page Bas de page 
 
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 


Citer
Binom-je-sais-pas-quoi( ?


C'est binomFdp( cupsmiley.gif

----------------------
Il y a 10 types de personnes dans le monde : celles qui comprennent le binaire et celles qui ne le comprennent pas.
 Adresse email Haut de page Bas de page 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Ven 15 Jui 2012, 22:54   Citer 

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 ...
 Adresse email Haut de page Bas de page 
 
alexdu44340



Autorisation : Membre
Nb de messages : 1
Inscrit le : Ven 15 Jui 2012, 19:48
Posté le : Sam 16 Jui 2012, 9:55   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 16 Jui 2012, 14:42   Citer 

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 ?

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 16 Jui 2012, 17:59   Citer 

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
 Adresse email Haut de page Bas de page 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Sam 16 Jui 2012, 22:43   Citer 

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 ? bigmouth.gif

----------------------
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 ...
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 17 Jui 2012, 0:41   Citer 

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
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Dim 17 Jui 2012, 9:12   Citer 

bien, chef ! beer.gif

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink