Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Loi Binômiale
Auteur Message
Cyplejet



Autorisation : Membre
Nb de messages : 23
Inscrit le : Mar 21 Avr 2009, 20:14
Posté le : Ven 13 Aoû 2010, 15:13   Citer 

Bonjour.

Voila un code que j'ai récupéré mais avant de le recopier, je voudrais avoir quelques explications aux lignes marquées d'un "// ICI"

ü = Sto, ø = différent de, å ??, Y€ ??, ù ??


Code
U                                              // ICI
0üM
11üT
2üM
While Tø22 and Tø23 and Tø45 and (Tø15 or Mø2
If T=11 and M=2
Then
0üM
ú1üN
While N<0 or fPart(N
ClrHome
Output(1,10,"[0,ÑÐÐ[
Input "n=",N
End
ú1üP
While P<0 or P>1
ClrHome
Output(1,12,"[0,1]
Input "p=",P
End
If not(U
Then
{Tmin,Tmax,Ámin,Ámaxü
0üTmin
94üTmax
0üÁmin
62üÁmax
Stringå"(N nCr I)P^I(1-P)^(N-I)",Y€
FnOff
AxesOff
GridOff
PlotsOf
Full
ClrDraw
"BINOMALL 1.0üStr0
For(I,1,12
sub(Str0,I,1
Text(0,13+5I,Ans
Text(0,5I+14,Ans
End
Text(8,4,"TI-76.Fr/82Stats/83/84+
Text(14,38,"Xavàër Andrëanà
Text(20,40,"tà.banK.Frëë.Fr
Line(16,55,78,55
Line(16,55,16,Ámax
Line(78,55,78,Ámax
Line(0,47,36,47
Line(36,47,36,33
Text(30,26,"(    )
Text(29,29,"n
Horizon33
Text(35,0,"p(X=K)=(K)Òp Ò(1-p)
Line(26,27,26,26
Line(34,27,34,26
Pt-Off(33,26
Pt-Off(27,26
Text(30,43,"K
Text(30,66,"n-K
Horizon20
Text(43,0,"ù : au ,ÖÐàns
Pt-On(20,17
Text(49,0,"÷ : au pá us
Text(49,83,"<->
Line(84,10,92,10
Horizon6
For(I,1,4
Line(19I,0,19I,5
End
End
1üU
Text(16,0,"n=",N
Text(22,0,"p=",P
For(I,0,2
Line(94-I,2-I,94-I,2+I
Line(I,2-I,I,2+I
End
End
If M=1
Then
Text(57,4," XøK
Text(57,23,"<
Text(57,42,"÷X÷
Text(57,61,"÷X<
Text(57,77,"
Else
If M=2
Then
Text(57,4,"NÐuv
"             
Text(57,23,Ans
Text(57,42,Ans
Text(57,61,Ans
Line(19,0,19,5
Text(57,77,"Quàt
Else
Text(57,4,"  X=K
Text(57,23,"X >K
Text(57,42,"XùK
Text(57,61,"X÷K
Text(57,77,"  X
End
End
0üT
While T<11 or T>26 and Tø45 and Tø34
getKeyüT
End
If Tù24 and T÷26 or T=34
Then
If T=24 or T=25
Then
M-1
If Ans<0
2
Else
M+1
If Ans>2
0
End
AnsüM
End
If Tù11 and T÷15 and M÷1
Then
0üS
Input "K =",D
DüK
NüL
If M and Tù12
Input "K'=",L
LüE
If T=11
KüL
If Tù14 and not(M
Then
KüL
0üK
End

If T=12 or MT=15 or fPart(K
1+int(KüK
If fPart(L
Then
int(LüL
Else
If TM=14 or TM=12 or T=15 and not(M
L-1üL
End
0üS
If T=11 and not(M
"=üStr0
If MT=11
üStr0
If T=12 and not(M
">üStr0
If T=13 and not(M
"ùüStr0
If MT=12 or MT=15 or T=15 and not(M
"<üStr0
If MT=13 or MT=14 or T=14 and not(M
"֟Str0
For(I,0,N
If IùK and I÷L
S+Y€üS                                                // ICI
End
If MT=11
1-SüS
ClrHome
Disp "K ="
Output(1,4,D
If M and Tù12
Then
Disp "K'="
Output(2,4,E
Disp "p(K X K')=
Output(3,4,Str0
If MTù12 and MT÷15                                    // ICI
Then                                                  //
"<                                                    //
If MT=13 or MT=15                                     //
"÷                                                    //
Output(3,6,Ans
End
Output(3,11,S
Else
Disp "
Disp "p(X K)=
Output(3,4,Str0
Output(3,8,S
End
Disp SåFrac
Output(8,1,"Tapëz unë tÐucHë                               //surement a traduire
While not(getKey
End
Output(8,1,"               
DispGra
End
End
L(1üTmin                                                   // ICI
L(2üTmax
L(3üÁmin
L(4üÁmax
AxesOn
FnOn
ClrListL
DelVar Y€                                                  // ICI
S
Output(1,1,"



Pouvez-vous m'expliquer la signification de ces lignes? m'aider à traduire certains symboles (à = i) et me dire si le programme est réductible vu que je n'ai pas de câble. (il est trouvable sur TI BANK)

 Adresse email Haut de page Bas de page 
 
Wirekey



Autorisation : Membre
Nb de messages : 241
Inscrit le : Mer 17 Jui 2009, 0:54
Posté le : Mar 17 Aoû 2010, 23:39   Citer 

Bonjour,

Lien vers le programme sur TIBank ?

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 18 Aoû 2010, 3:43   Citer 

Je n'en ai trouver qu'un: c'est celui-ci.

Pourrais-je avoir le prog en .8xp car je n'ai pas le graph-link 83 et celui en .8xp est en ASM.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 31 Aoû 2010, 14:55   Citer 

å le triangle de flèche de certaines fonctions comme >Frac
Y€ C'est un Y d'équation, le € signifiant le zéro en indice
ù suppérieur ou égal
÷ inférieur ou égal

J'ai trouvé pour toutes les lignes sauf la première
Code
S+Y0->S

If MT>=12 and MT<=15
Then
"<
If MT=13 or MT=15
"<=

Output(8,1,"TAPEZ UNE TOUCHE

L1(1->Tmin

DelVar Y0



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



Autorisation : Membre
Nb de messages : 23
Inscrit le : Mar 21 Avr 2009, 20:14
Posté le : Mer 08 Sep 2010, 17:39   Citer 

merci beaucoup, j'vais voir ça

 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 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa