Poster un nouveau sujet Poster une réponse
Existet'il un programme alternatif a BinomFrep et BinomFdp ?
Auteur Message
gioland100



Autorisation : Membre
Nb de messages : 1
Inscrit le : Mer 11 Mar 2015, 19:16
Posté le : Mer 11 Mar 2015, 19:21   Citer 

Bonjour , j'ai une TI-82 mais je n'ai ni BinomFrep , ni BinomFdp car elle est trop vielle
Existe t'il un programme alternatif a BinomFrep et BinomFdp ?
Merci beaucoup

 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 : Mer 11 Mar 2015, 21:11   Citer 

Je n'ai pas de source sous la main, j'en improviserai un ici.
(La loi binomiale est un sujet déjà traité à plusieurs reprises et j'en ai moi-même traité quelques fois.)

Code
// BINOMDEN : densité binomiale Fdp
//programme pour ti82 et toutes les z80
Disp "BINDEN(N,P)(X=K)
Prompt N,P,K
(N nCr K)P^K(1-P)^(N-K



Code
// BINOMREP : répartition binomiale FRép
//programme pour ti82 et toutes les z80
Disp "BINREP(N,P)(X<=K)
Prompt N,P,K
0
For(K,0,K
Ans+(N nCr K)P^K(1-P)^(N-K
End
Ans



Code
// BINOMREP : répartition binomiale FRép plus synthétique
//programme pour ti82 et toutes les z80
Disp "BINREP(N,P)(X<=K)
Prompt N,P,K
sum(seq((N nCr K)P^K(1-P)^(N-K),K,0,K))



Code
// BINOMREP : version synthétique du MathPrint
//programme pour système MathPrint (84plusSE etc.) à cause de la fonction Sigma
Disp "BINREP(N,P)(X<=K)
Prompt N,P,K
Sigma((N nCr K)P^K(1-P)^(N-K),K,0,K)

Remarque d'implémentation : j'abuse de la prédéfinition des arguments de For, seq et Sigma en langage TI-Basic afin d'utiliser la variable K dans deux cas différents. (la borne de sortie est calculée une fois en lisant K, puis K est seulement le compteur car la condition de sortie n'est pas influencée par la modification de K)

Pour la densité BinomFdp on peut simplement affecter la courbe Y1 et afficher le tableur de graphe.

Code
Prompt N,P
0->TblStart
1->DeltaTbl
"(N nCr X)P^X(1-P)^(N-X->Y1
DispTable



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