Forum

Catégorie : Support
Forum : TI-82
Vues : 3929
Réponses : 1
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Existet'il un programme alternatif a BinomFrep et BinomFdp ?

gioland100 le 11/03/2015 à 19:21
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
linkakro le 11/03/2015 à 21:11
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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.