et tous les "Pause" ne fonctionne pas
- Code: Tout sélectionner
ClrDrawin
FunctionNAff
AxesOff
EffEcr
Menu("PROBAS","BINOMIALE",01,"UNIFORME",02,"EXPONENTIELLE",03,"NORMALE",04,"AUTRES",05)
Lbl 01
Menu("BINOMIALE","P(X=τ)",11,"P(X≤τ)",12,"P(X≥τ)",13,"P(α≤X≤β)",14,"FORMULE",15,"AUTRES",16)
Lbl 11
Text(0,0,"P(X=τ)=binompdf(N,P,τ)")
Pause
Input "N=",N
Input "P=",P
Input "τ=",T
binompdf(N,P,T)→G
Disp "P(X=τ)=",G
Pause
Goto 99
Lbl 12
Text(0,0,"P(X≤τ)=binomcdf(N,P,τ)")
Pause
Input "N=",N
Input "P=",P
Input "τ=",T
binomcdf(N,P,T)→G
Disp "P(X≤τ)=",G
Pause
Goto 99
Lbl 13
Text(0,0,"P(X≥τ)=1-P(X≤τ-1)")
Text(6,0,"=1-binomcdf(N,P,τ-1)")
Pause
Input "N=",N
Input "P=",P
Input "τ-1=",T
1-binomcdf(N,P,T)→G
Disp "P(X≥τ)=",G
Pause
Goto 99
Lbl 14
Text(0,0,"P(α≤X≤β)= P(X≤β)-P(X≤α-1)")
Text(6,0,"binomcdf(N,P,β)")
Text(12,0,"-binomcdf(N,P,α-1)")
Pause
Input "N=",N
Input "P=",P
Input "β=",B
Input "α-1=",A
binomcdf(N,P,B)-binomcdf(N,P,A)→G
Disp "P(α≤X≤β)=",G
Pause
Goto 99
Lbl 15
Text(0,0,"(N τ)*(P^τ)*)(1-P)^(N-τ))")
Pause
Goto 99
Lbl 16
Text(0,0,"E(X)=N*P")
Text(6,0,"V(X)=N*P(1-P)")
Pause
Input "N=",N
Input "P=",P
N*P→E
N*P(1-p)→V
Disp "E(X)=",E
Disp "V(x)="V
Pause
Goto 99
Lbl 02
Menu("UNIFORME","P(α≤X≤β)",21,"P(X≤α)",22,"Autres",23)
Lbl 21
Text(0,0,"X suit la loi uniforme (a:b)")
Text(6,0,""P(α≤X≤β)=(β-α)/(b-a)")
Pause
Input "a=",A
Input "b=",B
Input "α=",X
Input "β=",Y
(Y-X)/(B-A)→G
Disp "P(α≤X≤β)=",G
Pause
Goto 99
Lbl 22
Text(0,0,"X suit la loi uniforme (a:b)")
Text(6,0,"si α<a alors 0")
Text(12,0,si α>b aors 1")
Text(18,0,"si a≤α≤b alors (α-a)/(b-a)")
Pause
Input "a=",A
Input "b=",B
Input "α=",X
(X-A)/(B-A)→G
Disp "P(X≤α)=",G
Pause
Goto 99
Lbl 23
Text(0,0,"X suit la loi uniforme (a:b)")
Text(6,0,"Espérance de X")
Text(12,0,"E(X)=(b+a)/2")
Pause
Input "a=",A
Input "b=",B
(B+A)/2→G
Disp "E(X)=",→G
Pause
Goto 99
Lbl 03
Menu("EXPONENTIELLE","P(X≤α)",31,"P(α≤X≤β)",32,"P(X≥α)",33,"Autres",34)
Lbl 31
Text(0,0,"si α>0 P(X≤α)=1-^(-λα)")
Text(0,6,"si α<0 alors 0")
Pause
Input "α=",A
Input "λ=",L
1-^(-L*A)→G
Disp "P(X≤α)=",G
Pause
Goto 99
Lbl 32
Text(0,0,"P(α≤X≤β)=P(X≤β)-P(X≤α)")
Text(6,0,"=1-^(-λβ)-(1-^(-λα))")
Text(12,0,"=-^(-λβ)+^(-λα)")
Pause
Input "α=",A
Input "β=",B
Input "λ=",L
(-^(-L*B))+^(-L*A)→G
Disp "P(α≤X≤β)=",G
Pause
Goto 99
Lbl 33
Text(0,0,"P(X≥α)=1-P(X≤α)")
Text(6,0,"=1-(1-^(-λα)")
Text(12,0,"^(-λα)")
Pause
Input "α=",A
Input "λ=",L
^(-L*A)→G
Disp "P(X≥α)=",G
Pause
Goto 99
Lbl 34
Menu("AUTRES","ESPERANCE",341,"DUREE DE VIE",342")
Lbl 341
Text(0,0,"E(X)=1/λ")
Pause
Input "λ=",L
1/L→G
Disp "E(X)=",G
Pause
Goto 99
Lbl 342
Text(0,0,"Px≥t(X≥t+h)=P(X≥h)")
Text(6,0,"P(X≥h)=1-P(X≤h)")
Text(12,0,"=1-(1-^(-λh)")
Text(18,0,"^(-λh)")
Pause
Input "h=",T
Input "λ=",L
^(-L*T)→G
Disp "P(X≥h)=",G
Pause
Goto 99
Lbl 04
Menu("NORMALE","P(a≤X≤b)",41,"P(X≤a)",42,"P(X≥a)",43,"P(X≤a)=p",44,"AUTRES",45)
Lbl 41
Text(0,0,"X suit la loi normale N(µ,σ²)")
Text(6,0,"P(a≤X≤b)=normalcdf(a,b,µ,σ)")
Pause
Input "a=",A
Input "b=",B
Input "µ=",U
Input "σ=",S
normalcdf(A,B,U,S)→G
Disp "P(a≤X≤b)=",G
Pause
Goto 99
Lbl 42
Text(0,0,"X suit la loi normale N(µ,σ²)")
Pause
Menu("P(X≤a)","a≤σ",421,"a≥σ",422)
Lbl 421
Text(6,0,"si a≤σ")
Text(12,0,"P(X≤a)= 0.5-P(a≤X≤σ)")
Text(18,0,"=0.5-normalcdf(a,σ,µ,σ)"
Pause
Input "a=",A
Input "µ=",U
Input "σ=",S
0.5-normalcdf(A,S,U,S)→G
Disp "P(X≤a)=",G
Pause
Goto 99
Lbl 422
Text(6,0,"si a≥σ")
Text(12,0,"P(X≤a)= 0.5+P(σ≤X≤a)")
Text(18,0,"=0.5+normalcdf(σ,a,µ,σ)"
Pause
Input "a=",A
Input "µ=",U
Input "σ=",S
0.5+normalcdf(S,A,U,S)→G
Disp "P(X≤a)=",G
Pause
Goto 99
Lbl 43
Text(0,0,"X suit la loi normale N(µ,σ²)")
Text(6,0,"P(X≥a)=1-P(X≤a)")
Pause
Menu("1-P(X≤a)","a≤σ",431,"a≥σ",432)
Lbl 431
Text(12,0,"=0.5+P(a≤X≤σ)")
Pause
Input "a=",A
Input "µ=",U
Input "σ=",S
0.5+normalcdf(A,S,U,S)→G
Disp "P(X≥a)=",G
Pause
Goto 99
Lbl 432
Text(12,0,"=0.5-P(a≤X≤σ)")
Pause
Input "a=",A
Input "µ=",U
Input "σ=",S
0.5-normalcdf(A,S,U,S)→G
Disp "P(X≥a)=",G
Pause
Goto 99
Lbl 44
Text(0,0,"X suit la loi normale N(µ,σ²)")
Text(6,0,"P(X≤a)=p alors"
Text(12,0,"a=invNorm(p,µ,σ)"
Pause
Input "p=",P
Input "µ=",U
Input "σ=",S
invNorm(P,U,S)→G
Disp "a=",G
Pause
Goto 99
Lbl 45
Menu("AUTRES","CENTREE REDUITE",451,"GENERALE",452)
Lbl 451
Text(0,0,"X suit la loi normale N(0,1)")
Text(6,0,"P(-1.96≤X≤1.96)=0.95")
Text(12,0,"P(-2.58≤X≤2.58)=0.99")
Pause
Goto 99
Lbl 452
Text(0,0,"X suit la loi normale N(µ,σ²)")
Text(6,0,"P(µ-σ≤X≤µ+σ)=0.683"
Text(12,0,"P(µ-2σ≤X≤µ+2σ)=0.954"
Text(18,0,"P(µ-3σ≤X≤µ+3σ)=0.997"
Pause
Goto 99
Lbl 05
Menu("AUTRES","ECHANTILLONNAGE",51,"ESTIMATION",52)
Lbl 51
Text(0,0,"intervalle de fluctuation asymptotique")
Text(6,0,"(p-U*(√(p(1-p)))/√(n),"
Text(12,0,"(p+U*(√(p(1-p)))/√(n),"
Text(18,0,"si U=1.96 alors à 0.95"
Text(24,0,"si U=2.58 alors à 0.99"
Pause
Goto 99
Lbl 52
Text(0,0,"intervalle de confiance a 0.95")
Text(6,0,"[f-(1/√(n),f+(1/√(n)]"
Pause
Goto 99
Lbl 99
ClrDrawin
FunctionNAff
AxesOff
EffEcr
STOP