Autorisation : Membre
Nb de messages : 23
Inscrit le : Mar 21 Avr 2009, 20:14
Posté le : Ven 13 Aoû 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)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 31 Aoû 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
---------------------- 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)