Gamme TI-82


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 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3388
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 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3772
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 - 2019 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink