Oui, bon voici le programme pour ceux qui sont fainéants qui ne veulent pas le télécharger:
| Code |
:FnOff
:AxesOff
:0→Xmin:0→Ymin:94→Xmax:62→Ymax
:ClrDraw
:Horizontal 60:Horizontal 59
:For(A,1,12
: For(B,0,1
: Text(4,17+5A+B,sub("Loi P/i/erre !",A,1
: End:End
:Horizontal 50:Horizontal 51
:
:Horizontal 30:Horizontal 33
:Pt-On(0,32:Pt-On(94,32
:For(L,0,94,0.5
: L/94*100→Z
: iPart(Z)→Z
:
: Text(35,42,"",Z,"
:
: Pt-On(L,32
: Pt-On(L,31
:End
:ClrDraw
:0→Xmin:0→Ymin:62→Ymax:94→Xmax
:Horizontal 60:Horizontal 59:Horizontal 50:Horizontal 51
:For(A,1,12
: For(B,0,1
: Text(4,17+5A+B,sub("Lo/i/ P/i/erre !",A,1
: End:End
:‾10→Xmin:‾10→Ymin:10→Xmax:10→Ymax
:ClrDraw
:For(A,1,45
: Text(A,15,"Loi normale
:End
:For(B,1,35
: Text(B,15,"Loi uniforme
:End
:For(C,1,25
: Text(C,15,"Loi binomiale
:End
:For(D,1,18
: Text(5,D+9," Et Integrale
: Text(12,73-D," De f(x)
:End
:Pause :ClrDraw
:0→Xmin:0→Ymin:62→Ymax:94→Xmax
:Lbl Θ
:Menu("Calcul","Stats",1,"Loi Uniforme",2,"Calculer Z,X",3,"Lo/i/ Normale",4,"Integrale",5,"Loi Binomiale",6,">>> QUIT <<<",7
:Lbl 1
:‾10→Xmin:‾10→Ymin:10→Xmax:10→Ymax
:AxesOff
:ClrDraw:ClrHome
:"10 Rentres n et p et cela calculera E(x) v(x) ainsi que σx
:DelVar CAns→Str0
:expr(sub(Ans,1,2→PV
:1→F
:sub(Str0,3,length(Str0)-2→Str0
:getKey
:Repeat C+F>length(Str0
: PV+6→PV
: C+F→F
: Repeat Ans-F>25 or not(Ans
: 1+Ans→C
: inString(Str0," ",Ans
: End
: C-F→C
: If Ans>1
: Then
: sub(Str0,F,C
: For(L,1,length(Ans
: If dim(rand(int(.25(length(Ans)-L+4
: Text(PV,1,sub(Ans,1,L)+sub(" _ ",1+3(sub(Ans,L,1)≠" "),3
: If getKey=91
: Goto Q
: End
: Text(PV,1,sub(Str0,F,C)+"
: End
:End
:getKey
:0
:Repeat getKey
: If dim(rand(15
: not(Ans
: Text(PV,1,sub(Str0,F,C)+sub(" _ ",1+3Ans,3
: For(A,1,900
: End
: ClrDraw:ClrHome
: Prompt N,P
: ClrHome
: N*P→E
: E*(1-P)→V
: √(V)→O
: AxesOff
: ClrDraw
: 62→Ymax:0→Xmin:0→Ymin:94→Xmax
: Text(10,8,"=",N,"*",P," = ",E,"
: Text(4,8,"E(X)=N*P
: Text(22,8,"V(X) = E*(1-P)
: Text(28,8,"=",E,"*(1-",P,") = ",V,"
: Text(38,8,"σx = √(V)"
: Text(44,8,"=√(",V,") = ",O,"
: Pause
: Goto Θ
: Lbl 2
: ClrDraw:ClrHome
: Menu("Loi Uniforme","E(X)",Y,"A≤X≤B",S,"F(X)",U,"RETOUR",Θ
: Lbl Y
: Prompt A,B
: Text(10,2,"E(X)=A+B/2
: Text(18,4,"=( ",A," + ",B," ) /2
: (A+B)/2→E
: Text(26,8,"E(X) = ",E,"
: Pause :Goto 2
: Lbl S
: ClrHome:ClrDraw
: Input "BORNE INF ",C
: Input "BORNE SUP ",D
: Prompt A,B
: Text(10,2,"P(",A,"≤X≤",B,")=
: B-A→F
: D-C→G
: Text(18,3,"(",B,"-",A,")/(",D,"-",C,")
: Text(26,6,"",F,"/",G,"
: (F/G)→H
: Text(34,9,"= ",H,"
: Pause :Goto 2
: Lbl U
: ClrDraw:ClrHome
: Prompt A,B
: Text(10,0,"f(X)=1/(B-A)
: B-A→C
: Text(20,5,"f(X)= 1/(",B,"-",A,")
: Text(30,0,"f(X)= 1/",C,"
: Pause
: Goto 2
:
: Lbl 3
: Menu("Calculer","Z",ZZ,"X",XX,"Retour",Θ
: Lbl ZZ
: ClrHome:ClrDraw
: Prompt E
: Input "σx = ",O
: Prompt A,B
: ClrDraw
: Text(1,2,"-> P(",A,"≤ X ≤ ",B,") ="
: Text(9,2,"= ",A,"-",E," ≤ X-",E," ≤ ",B,"-",E,"
: Text(16,2,"= ",N," ≤ X-",E," ≤ ",S,"
: Text(23,2,"",N," ≤ ((X-",E,") ≤ ",S,"
: Text(36,10,"",O," ",O," ",O,"
: Text(44,2," ",U," ≤ Z ≤ ",V,"
: Text(54,22,"(X-E)/σx
: Pause
: Goto Θ
: Lbl XX
: ClrDraw:ClrHome
: Prompt Z,E
: Input "σx = ",O
: Text(3,1,"Z=(X-E)/σx
: Text(16,1,"",Z,"=(X-",E,")/",O,"
: O*Z→V
: Text(26,1,"X-",E," = ",V,"
: V+E→X
: Text(36,1,"X = ",X,"
: Pause
: Goto 3
: Lbl 4
: Menu("loi normale","P(a≤X≤b)",PP,"P(X≤x)=p",PI,"Retour",Θ
: Lbl PP
: ClrHome:ClrDraw
: Input "E(X) = ",E
: Input "σx = ",O
: Input "BORNE INF = ",L
: Input "BORNE SUP = ",R
: normalcdf(L,R,E,O)→T
: ClrDraw
: Text(23,22,"LOI NORMALE :
: Text(32,2,"normalcdf(",L,",",R,",",E,",",O,")
: Text(38,22,"P(",L," ≤ X ≤ ",R,")
: Text(44,2,"= ",T,"
: Pause
: Menu("Recommer ?","Oui",PP,"Non",4)
: Lbl PI
: ClrDraw:ClrHome
: Prompt E
: Input "σx = ",O
: Prompt P
: invNorm(P,E,O)→X
: Text(10,1,"P(X≤x) = ",P,"
: Text(20,1,"x = ",X,"
: Text(30,1,"invNorm(",P,",",E,",",O,")
: Pause
: Goto 4
: Lbl 5
: ClrDraw:ClrHome
:
: ClrDraw
: "10 Rentres f(x) ainsi que les bornes inferieur et superieur
: DelVar CAns→Str0
: expr(sub(Ans,1,2→PV
: 1→F
: sub(Str0,3,length(Str0)-2→Str0
: getKey
: Repeat C+F>length(Str0
: PV+6→PV
: C+F→F
: Repeat Ans-F>25 or not(Ans
: 1+Ans→C
: inString(Str0," ",Ans
: End
: C-F→C
: If Ans>1
: Then
: sub(Str0,F,C
: For(L,1,length(Ans
: If dim(rand(int(.25(length(Ans)-L+4
: Text(PV,1,sub(Ans,1,L)+sub(" _ ",1+3(sub(Ans,L,1)≠" "),3
: If getKey=91
: Goto Q
: End
: Text(PV,1,sub(Str0,F,C)+"
: End
: End
: getKey
: 0
: Repeat getKey
: If dim(rand(15
: not(Ans
: Text(PV,1,sub(Str0,F,C)+sub(" _ ",1+3Ans,3
: For(A,1,900
: End
: Pause :ClrDraw
: ‾10→Xmin:‾10→Ymin:10→Xmax:10→Ymax
: Horiz
: Horizontal 10:Vertical ‾10:Vertical 10
: Line(‾7.4,6,‾7.44,‾4
: Line(‾6.8,6,‾7.2,6.6
: Line(‾8,‾4,‾7.7,‾4.7
: Text(2,17,"b
: Text(18,17,"a
: Disp "
: Input "f(X) = ",Str1
: Text(10,21,Str1+" dx
: ClrHome
: Input "BORNE INF = ",A
: Text(18,17,"",A,"
: ClrHome
: Input "BORNE SUP = ",B
: Text(2,17,"",B,"
: Pause
: ClrHome
: Str1→Y1
: FnOff
: fnInt(Y1,X,A,B)→H
: Text(1,0,"f(X)= ",Str1,"
: Text(10,0,"fnInt(",Str1,",X,",A,",",B,")
: Text(20,6,"F(",B,") - F(",A,") = ",H,"
: Pause
: ClrHome
: Disp " VALEUR "
: Disp " ABSOLUE "
: Disp H►Frac
: Pause
: Full
: 0→Xmin:0→Ymin:94→Xmax:62Ymax
: Goto Θ
: Lbl 6
: ClrHome
: Prompt N,P
: Lbl P
: Menu("Binomiale","B(N,P)",R,"=K",A,"≤K",C,"≥1",D,"A≤X≤B",E," ->",J,"Retour",Θ
: Lbl A
: ClrHome
: Prompt X
: binompdf(N,P,X)→K
: ClrDraw
: Text(10,3,"P(X=",X,") = ",K,"
:
: Text(25,0,"P(X=",X,")=(",X,")*",P," *(1-",P,")
: Text(20,27,"",N,"
: Text(20,54,"",X,"
: N-X→S
: Text(20,87,"",S,"
: Text(0,3,"binompdf(",N,",",P,",",X,")
: Text(40,29,"N
: Text(40,43,"K
: Text(40,66,"N-K
: Text(46,0,"P(X=K)=(K)*P *(1-P)
: Pause
: Goto P
: Lbl R
: ClrHome:ClrDraw
: Text(0,0,"c\\\'est une repetition de
: Text(6,10,"",N," epreuves
: Text(12,0,"Identiques Et Indepandantes ,
: Text(18,0," Dont la proba du succes
: Text(24,5,"Est egale a ",P,"
: Text(30,4,"Donc X Suit la loi
: Text(36,3,"binomiale de parametres
: Text(42,0,"n= ",N," Et p= ",P,"
: Text(48,0,"B(",N,",",P,")
: Pause
: Goto P
: Lbl D
: 1-binompdf(N,P,0)→T
: ClrDraw
: Text(4,86,"N"
: Text(10,0,"P(X≥1)=1-P(X=0)=1-(1-P)
: Text(20,0,"P(X≥1)=1-(1-",P,")^",N,"
: 1-P→G
: Text(30,0,"P(X≥1)=1-",G,"^",N,"
: Text(40,0,"P(X≥1)=",T,"
: Text(50,10,"1-binompdf(",N,",",P,",0)
: Pause
: Goto P
: Lbl C
: ClrHome
: Prompt K
: binomcdf(N,P,K)→Y
: ClrDraw
: Text(10,0,"P(X≤",K,")=",Y,"
: Text(20,0,"binomcdf(",N,",",P,",",K,")
: Pause
: Goto P
: Lbl E
: ClrHome:ClrDraw
: Prompt A,B
: A-1→V
: binomcdf(N,P,B)-binomcdf(N,P,(A-1))→Z
: Text(10,0,"P(",A," ≤ X ≤ ",B,")
: Text(18,0,"P(X≤",B,")-P(X≤",V,")
: Text(30,2,"binomcdf(",N,",",P,",",B,")
: Text(38,0,"-binomcdf(",N,",",P,",",V,")
: Text(50,10,"= ",Z,"
: Pause
: Goto P
: Lbl F
: ClrDraw:ClrHome
: Prompt A,B
: B-1→W
: Text(10,0,"P(",A,"<X<",B,")=
: Text(20,12,"= P(X≤",W,")-P(X≤",A,")
: binomcdf(N,P,W)-binomcdf(N,P,A)→Z
: Text(30,0,"binomcdf(",N,",",P,",",W,")
: Text(38,0,"-binomcdf(",N,",",P,",",A,")
: Text(48,12,"=",Z,"
: Pause :Goto P
: Lbl G
: ClrDraw:ClrHome
: Prompt K
: K-1→R
: Text(10,0,"P(",K,">X)="
: Text(18,12,"P(X<",K,")=P(X≤",R,")
: Text(26,10,"binomcdf(",N,",",P,",",R,")
: binomcdf(N,P,R)→Z
: Text(36,18,"=",Z,"
: Pause :Goto P
: Lbl J
: Menu("SUITE","X>K",G,"X≥K",H,"X<K",I,"A<X<B",F,"listes",LI,"RETOUR",P)
: Lbl H
: ClrDraw:ClrHome
: Prompt K
: K-1→Q
: Text(10,0,"P(X≥",K,") =
: Text(24,10,"1-P(X≤",Q,")
: Text(30,6,"1-binomcdf(",N,",",P,",",Q,")
: 1-binomcdf(N,P,Q)→S
: Text(38,18,"= ",S,"
: Pause :Goto P
: Lbl I
: ClrDraw:ClrHome
: Prompt K
: K-1→Q
: Text(10,0,"P(X<",K,")=
: Text(18,10,"P(X≤",Q,")
: Text(26,10,"= binomcdf(",N,",",P,",",Q,")
: binomcdf(N,P,Q)→Z
: Text(36,20,"= ",Z,"
: Pause :Goto P
: Lbl LI
: ClrDraw:ClrHome:ClrAllLists
: seq(X,X,0,N,1)→L1
: binompdf(N,P)→L2
: binomcdf(N,P)→L3
: Text(10,6,"L<sub>1</sub> se trouve
: Text(17,1,"Les ≠ Valeurs de N
: Text(27,1,"L<sub>2</sub> Se situe proba P(X=X)
: Text(37,1,"L<sub>3</sub> Se situe proba P(X≤X)
:
: Pause
: Goto P
: Lbl 7
: FnOn
: AxesOn:ZStandard
|
Malheureusement je n'ai pas les compétences pour l'optimiser, mais il y a sûrement des améliorations à faire. 
----------------------
visitez ma page ti82stats.fr |
