Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Loi Binômiale
Cyplejet le 13/08/2010 à 15:13
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ü ( ) L
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)
Wirekey le 17/08/2010 à 23:39
Bonjour,
Lien vers le programme sur TIBank ?Sangohan38 le 18/08/2010 à 03:43
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
linkakro le 31/08/2010 à 14:55
å 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
Cyplejet le 08/09/2010 à 17:39
merci beaucoup, j'vais voir ça Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
