Lbl 0
ClrText
1ÞA
4ÞB
0ÞD~E
Locate 10,7,".."
Do
If A=1
Then Locate 1,1,"1.Suites"
Locate 1,2,"2.Suites2"
Locate 1,3,"3.Vecteurs"
Locate 1,4,"4.Derivees"
Locate 1,5,"5.Stats"
Locate 1,6,"6.Equa cart"
Else If A=2
Then Locate 1,1,"7.Scalaire"
Locate 1,2,"8.Exponentielle"
Locate 1,3,"9.Proba"
Locate 1,4,"10.Vecteurs espace"
Locate 1,5,"11.Trigo"
Locate 1,6,"99.Ancien"
Else If A=3
Then Locate 1,1,"12.Complexes"
Locate 1,2,"13.Logarithme"
Locate 1,3,"14.Integrales"
Locate 1,4,"15.Complexes+"
Locate 1,5,"16.Proba densit#E60A"
Locate 1,6,"17.Loi normale"
Else If A=4
Then Locate 1,1,"18.Norm+Binomial"
Locate 1,2,"19.Scalaire espace"
Locate 1,3,"20.Echant Estim"
Locate 1,6,"00.Outils"
IfEnd
IfEnd
IfEnd
IfEnd
Locate 1,7," "
Locate 21,7," "
A>1ãLocate 1,7,"#E69A"
A<BãLocate 21,7,"#E69B"
Do
While Getkeyá0
WhileEnd
0ÞZ
Do
GetkeyÞX
Isz Z
Z=5000ãGoto X
LpWhile X=0
If (X=38 Or X=79) And A>1
Then A-1ÞA
Break
IfEnd
If (X=27 Or X=29) And A<B
Then A+1ÞA
Break
IfEnd
10ÞC
X=72ã1ÞC
X=62ã2ÞC
X=52ã3ÞC
X=73ã4ÞC
X=63ã5ÞC
X=53ã6ÞC
X=74ã7ÞC
X=64ã8ÞC
X=54ã9ÞC
X=71ã0ÞC
If X=47 Or X=48
Then ClrText
"Appuyez sur EXE."
Stop
IfEnd
If X=44
Then 0ÞD~E
Locate 10,7,".."
IfEnd
If Cá10
Then E=0ãCÞD
E=1ãD©10+CÞD
Dâ10 Or E=0ãLocate 10,7,D
D<10 And E=1ãLocate 11,7,D
E+1ÞE
IfEnd
If E=2 Or X=31
Then For 1ÞZ To 200
Next
D=0ãGoto Y
D=1ãGoto 6
D=2ãGoto 7
D=3ãGoto 8
D=4ãGoto 9
D=5ãGoto B
D=6ãGoto C
D=7ãGoto D
D=8ãGoto E
D=9ãGoto F
D=99ãGoto A
D=10ãGoto G
D=11ãGoto H
D=12ãGoto I
D=13ãGoto J
D=14ãGoto K
D=15ãGoto L
D=16ãGoto M
D=17ãGoto N
D=18ãGoto O
D=19ãGoto P
D=20ãGoto Q
0ÞD~E
Locate 10,7,".."
IfEnd
LpWhile 1
Locate 1,1,"                     "
Locate 1,2,"                     "
Locate 1,3,"                     "
Locate 1,4,"                     "
Locate 1,5,"                     "
Locate 1,6,"                     "
LpWhile 1
Lbl A
ViewWindow 1,127,0,1,63,0
GridOn
CoordOn
AxesOn
LabelOn
Menu "Maths","Croiss ou ”roiss",1,"Fonction racine",2,"f absolue",3,"Comp x‹,†x,x",4,"k machin",5,"Suites",6,"Suites 2",7,"Vecteurs",8,"-->",Z
Lbl Z
Menu "Maths2","D#E60Ariv#E60Aes",9,"Stats",B,"Equation cart",C,"Scalaire",D,"Exp",E,"Proba",F,"<--",A,"[Back]",0
Lbl 1
ClrText
"f sur I"
"a et b sur I"
"si aàb et f(a)àf(b),"
"f est croiss sur I"Ý
"si f(a)âf(b) alors f"
"est ”roiss"Ý
Goto 0
Lbl 2
Cls
Graph Y=†XÝ
Goto 0
Lbl 3
ClrText
"@7Cx@7Câ0"
"@7Cx@7C=0 alors x=0"
"@7C-x@7C=@7Cx@7C"
"@7Cx@7C=@7Cy@7C alors x=y ou"
"x=-y"
"@7Cx©y@7C=@7Cx@7C©@7Cy@7C"Ý
"@7Cx@7C @7Cx@7C"
"@7C-@7C= -"
"@7Cy@7C @7Cy@7C"
"@7Cy-x@7C=@7Cx-y@7C"
"†(x‹)=@7Cx@7C"Ý
Cls
ViewWindow -59,67,0,-11,51,0
Text 1,1,"@7C 2x @7C"
Graph Y=Abs 2XÝ
Cls
Text 1,1,"@7C x‹-2X @7C"
Graph Y=Abs (X‹-40)Ý
Goto 0
Lbl 4
ClrText
ViewWindow -2.1875,5.6875,0,-0.6875,3.1875,0
Graph Y=X‹
Graph Y=X
Graph Y=†XÝ
Goto 0
Lbl 5
ClrText
"u est une fonction"
"k un reel"Ý
""
"(u+k)(x)=u(x)+k"Ý
"Ex : u(x)=x‹+1"
"u+3? (u+3)(x)=x‹+1+3=x‹+4"Ý
"u+k a le meme sens de"
"variation que u"Ý
""
"(k©u)(x)=k©u(x)"Ý
"k>0, meme sens var"
"k<0, sens diff"Ý
Goto 0
Lbl 6
ClrText
"u@E76E = Terme general"
"r = Raison"Ý
""
"La suite = \"u\" ou \"(un)\""Ý
"L'image de \"n\" par"
"la suite \"u\" se note"
"u@E76E plutot que u(n)"Ý
Goto 0
Lbl 7
ClrText
"Suites geometriques"
""
"u@E76E#E5DB#E5D1=q©u@E76E"
"Premier terme k"
"u@E76E=u@E76B©q¨(@E76E#E5DC@E76B)"Ý
ClrText
"  N"
"S=-©(P+D)"
"  2"
"N ombre de termes"
"P remier terme"
"D ernier terme"Ý
""
For 1ÞZ To 10
Next
"    1-q¨N"
For 1ÞZ To 10
Next
"S=P©-----"
For 1ÞZ To 10
Next
"     1-q"
For 1ÞZ To 10
Next
"N ombre de termes"
For 1ÞZ To 10
Next
"P remier terme"
""Ý
ClrText
"Suite arithmetique"
""
"Montrer que :"
"u@E76E+#E5D1-u@E76E = r"Ý
ClrText
"Suite geometrique"
""
"Montrer que :"
"u@E76E+1"
"---- = q"
" u@E76E"Ý
Goto 0
Lbl 8
ClrText
"x©y'=x'©y"Ý
Goto 0
Lbl 9
1ÞW
Do
ClrText
If W=1
Then "f(x)=b ,b#E6BDR"
"f#E6BDR"
"f'(x)=0"
"f'#E6BDR"
IfEnd
If W=2
Then "f(x)=mx ,m#E6BDR"
"f#E6BDR"
"f'(x)=m"
"f'#E6BDR"
IfEnd
If W=3
Then "f(x)=mx+p"
"f#E6BDR"
"f'(x)=m"
"f'#E6BDR"
IfEnd
If W=4
Then "f(x)=x‹"
"f#E6BDR"
"f'(x)=2x"
"f'#E6BDR"
IfEnd
If W=5
Then "f(x)=x#E5C3"
"f#E6BDR"
"f'(x)=3x‹"
"f'#E6BDR"
IfEnd
If W=6
Then "f(x)=x¨n"
"f#E6BDR"
"f'(x)=nx¨(n-1)"
"f'#E6BDR"
IfEnd
If W=7
Then "     1"
"f(x)=-"
"     x"
"f#E6BDR*"
"      -1"
"f'(x)=--"
"      x‹   f'#E6BDR*"
IfEnd
If W=8
Then "f(x)=†(x)"
"f#E6BDR#E5CB"
"       1"
"f'(x)=---"
"      2†x"
"f'#E6BD]0
IfEnd
If W=9
Then "u+v"
""
"(u+v)'=u'+v'"
IfEnd
If W=10
Then "u©v"
""
"(u©v)'=u'©v+u©v'"
IfEnd
If W=11
Then "#E64Au"
""
"(#E64Au)'=#E64A©u'"
IfEnd
If W=12
Then "u‹"
""
"(u‹)'=2©u'©u"
IfEnd
If W=13
Then "u#E5C3"
""
"(u#E5C3)'=3©u'©u‹"
IfEnd
If W=14
Then "u¨n"
""
"(u¨n)'=n©u'©u¨(n-1)"
IfEnd
If W=15
Then "1"
"-"
"u"
""
" 1 ' -u'"
"(-) =---"
" u   u‹"
IfEnd
If W=16
Then "u"
"-"
"v"
""
" u ' u'©v-u©v'"
"(-) =---------"
" v       v‹"
IfEnd
If W=17
Then "†u"
""
"       u'"
"(†u)'=---"
"      2†u"
IfEnd
W<17ãLocate 21,7,"#E69B"
W>1ãLocate 20,7,"#E69A"
Do
LpWhile Getkeyá0
Do
GetkeyÞV
LpWhile Vá38 And Vá27 And Vá47
V=47ãGoto 0
V=38ãW-1ÞW
V=27ãW+1ÞW
W=18ã17ÞW
W=0ã1ÞW
LpWhile 1=1
Lbl B
ClrText
"  n#E5D1©x#E5D1+n#E5D2©x#E5D2+..."
"Â=---------------"
"         N"Ý
ClrText
"  n#E5D1(x#E5D1-Â)+n#E5D2(x#E5D2-Â).."
"V=-------------------"
"          N"
"#E643=†V"Ý
Goto 0
Lbl C
ClrText
"Point A(x#E5D0
"Vecteur u(#E640
"ax+by+c=0"
"a=#E641"
"b=-#E640"
"c=-#E641©x#E5D0+#E640©y#E5D0"Ý
ClrText
"A( , ) B( , )"
"M(x,y)"
"M#E6BD(d)  Vect AM et AB"
"colineaires"Ý
""
"AM(x-2,y+3)"
"AB(6,5)"
"6(y+3)=5(x-2)"Ý
""
"On passe tout a"
"droite et on a"
"l'equation."Ý
Goto 0
Lbl D
ClrText
"u et v deux vecteurs"Ý
"               -#E691 -#E691"
"u#E5A7v=AB©AC©cos (AB
"   =#E6D7u#E6D7©#E6D7v#E6D7©cos (u,v)"Ý
ClrText
"#E691 #E691 #E691 #E691"
"u#E5A70=0#E5A7u=0"Ý
ClrText
"cos (u,v)=1
u#E5A7v=#E6D7u#E6D7©#E6D7v#E6D7"
""
"cos (u,v)=-1
u#E5A7v=-#E6D7u#E6D7©#E6D7v#E6D7"Ý
ClrText
"u‹=u#E5A7u=#E6D7u#E6D7‹"
"u#E5A7v=#E6D7u+v#E6D7‹-#E6D7u#E6D7‹-#E6D7v#E6D7‹"
"    ----------------"
"            2"Ý
ClrText
"u#E5A7v=xx'+yy'"
""
"u‹=u#E5A7u=#E6D7u#E6D7‹=x‹+y‹"
"donc #E6D7u#E6D7=†(x‹+y‹)"Ý
ClrText
"(ku)#E5A7v=u#E5A7(kv)=ku#E5A7v"
"u#E5A7(v+w)=u#E5A7v+u#E5A7w"Ý
ClrText
ViewWindow 1,127,0,1,63,0
CoordOff
GridOff
AxesOff
LabelOff
F-Line 60,30,120,30
F-Line 70,30,100,50
F-Line 100,50,97,50
F-Line 100,50,100,47
SketchDotF-Line 100,50,100,30
Text 63-25,70,"A"
Text 63-50,103,"C"
Text 63-25,100,"H"
Text 63-30,122,"B"
F-Line 5,30,50,30
F-Line 30,30,10,50
F-Line 10,50,13,50
F-Line 10,50,10,47
SketchDotF-Line 10,50,10,30
Text 63-25,30,"A"
Text 63-50,5,"C"
Text 63-25,10,"H"
Text 63-30,52,"B"
Text 55,1,"AB.AC=AB.AH"
"Meme sens :"
"u#E5A7v=AB©AH"
"Sens contraire :"
"u#E5A7v=-AB©AH"
""
"SHIFT+F6 pour graph"Ý
Goto 0
Lbl E
ClrText
"e#E5C0=1"Ý
"exp(a+b)="
"exp(a)©exp(b)"Ý
"         exp(a)"
"exp(a-b)=------"
"         exp(b)"Ý
"exp(na)=exp(a)¨n"Ý
"e#E5C1=e"Ý
"           1"
"exp(-x)=------"
"        exp(x)"Ý
ClrText
"Tangente :"
""
"y=f'(a)(x-a)+f(a)"Ý
ClrText
"lim(¥x)=+¾"
"xÞ+¾"Ý
""
"lim(¥x)=0#E5CB"
"xÞ-¾"Ý
""
"lim((¥x)/(x))=+¾"
"xÞ+¾"Ý
""
"lim(x¥x)=0#E5CC"
"xÞ-¾"Ý
""
"    (¥h-1)"
"lim ------- = 1"
"hÞ0    h"Ý
Goto 0
Lbl F
ClrText
"0àP(A)à1"Ý
"  _"
"P(A)=1-P(A)"Ý
"P(A#E6C3B)"
"=P(A)+P(B)-P(A#E6C4B)"Ý
"     cas favorables"
"P(A)=--------------"
"     cas possibles"Ý
"E(X)=#E551p@E769x@E769"Ý
"V(X)=p@E769(x@E769-E(X))‹"
"#E661(X)=†(V(X))"Ý
""
"      P(A#E6C4B)"
"P@E761(B)=------"
"       P(A)"Ý
""
"Evenements"
"independants :"
"P(A#E6C4B)=P(A)©P(B)"Ý
""
"Si A et B sont deux"
"evenements"
"independants, alors"
"_"
"A et B le sont."Ý
Goto 0
Lbl G
ClrText
"Vecteurs
coplanaires :"
"#E691  #E691  #E691"
"w=xu+yv"Ý
ClrText
"Equation param :"
"x=x@E741+k©x@E775"
"y=y@E741+k©y@E775"
"z=z@E741+k©z@E775"Ý
Goto 0
Lbl H
ClrText
"cos (x+2Ð)=cos x"
"cos (-x)=cos x"
"sin (x+2Ð)=sin x"
"sin (-x)=-sin x"Ý
ClrText
ViewWindow 1,127,0,1,63,0
CoordOff
GridOff
AxesOff
LabelOff
Text 1,1,"sin (a+b)=sin acos b+sin bcos a"
Text 7,1,"sin (a-b)=sin acos b-sin bcos a"
Text 13,1,"cos (a+b)=cos acos b-sin asin b"
Text 19,1,"cos (a-b)=cos acos b+sin asin b"
Text 25,1,"cos 2a=cos ‹a-sin ‹a"
Text 31,1,"sin 2a=2sin a©cos a"Ý
ClrText
"f(x)=sin x"
"f'(x)=cos x"
""
"f(x)=cos x"
"f'(x)=-sin x"Ý
ClrText
"f(x)=sin u"
"f'(x)=u'©cos u"
""
"f(x)=cos u"
"f'(x)=-u'©sin u"Ý
ClrText
"      sin x"
"tan x=-----"
"      cos x"
""
"f(-x)=-f(x)"
"impaire"Ý
ClrText
"f(x)=tan x"
"         1"
"f'(x)=------"
"      cos ‹x"
"ou  f'(x)=1+tan ‹x"Ý
Goto 0
Lbl I
ClrText
"-"
"z sera note #E5CCz"Ý
ClrText
"z=a+ib"
"#E5CCz=a-ib"Ý
ClrText
"Proprietes :"
"#E5CC#E5CCz=z"
"z+#E5CCz=2Re(z)"
"z-#E5CCz=2iIm(z)"
"#E5CC(zz')=#E5CCz©#E5CCz'"Ý
ClrText
"Proprietes :"
"#E5CC(1/z)=1/#E5CCz"
"#E5CC(z/z')=#E5CCz/#E5CCz'"
"#E5CC(z+z')=#E5CCz+#E5CCz'"Ý
ClrText
"Graphiquement,"
"les points d'affixe"
"z et #E5CCz sont symet"
"par rapport a l'axe"
"des abscisses."Ý
ClrText
"Module d'un complexe"
"@7Cz@7C=†(a‹+b‹)=†(z©#E5CCz)"Ý
ClrText
"@7C#E5CCz@7C=@7Cz@7C"
"@7Cz@7C=†(z©#E5CCz)"
"   =†(#E5CCz©#E5CC#E5CCz)"
"@7Czz'@7C=@7Cz@7C©@7Cz'@7C"
"@7C1/z@7C=1/@7Cz@7C"
"@7Cz/z'@7C=@7Cz@7C/@7Cz'@7C"Ý
ClrText
"@7Cz‹@7C=@7Cz@7C‹"
"@7Cz¨n@7C=@7Cz@7C¨n"Ý
ClrText
"AB=@7Cz@E742-z@E741@7C"
""
"/¯«¯\\"
"@7Cz+z'@7Cáááá@7Cz@7C+@7Cz'@7C"Ý
ClrText
"Cercle :"
"(X@E74D-X#E558)‹+(Y@E74D-Y#E558)‹=R‹"
""
"@7Cz@E74D-z@E741@7C=?"Ý
ClrText
"Mediatrice :"
"y=ax©b"
""
"@7Cz@E74D-z@E741@7C=@7Cz@E74D-z@E742@7C"Ý
ClrText
"Si #E543<0 :"
""
"   -b+i†@7C#E543@7C"
"z#E5D1=--------"
"      2a"Ý
""
"   -b-i†@7C#E543@7C"
"z#E5D2=--------"
"      2a"
While Getkeyá0
WhileEnd
While Getkey=0
WhileEnd
Goto 0
Lbl J
ClrText
"ln x=y <=> ¥y=x"Ý
ClrText
"ln 1=0"
"ln e=1"
"ln x ssi x#E6BD]0
"ln a=ln b <=> a=b"
"ln a<ln b <=> a<b"Ý
""
"ln (¥x)=x"
"¥(ln x)=x"Ý
ClrText
"ln (ab)=ln a+ln b"
"ln (a‹)=2ln a"
"ln (a¨n)=n(ln a)"
"ln (1/b)=-ln b"
"ln (a/b)=ln a-ln b"
"ln †a=(1/2)©ln a"Ý
ClrText
"lim ln x=+¾"
"xÞ+¾"
""
"lim ln x=-¾"
"xÞ0"
"x>0"Ý
ClrText
"    ln x"
"lim ----=0#E5CB"
"xÞ+¾  x"
Locate 1,5,"lim xln x=0#E5CC"
Locate 1,6,"xÞ0"
Locate 1,7,"x>0"Ý
ClrText
"    ln (1+h)"
"lim --------=1"
"hÞ0     h"Ý
ClrText
"        1"
"(ln x)'=-"
"        x"
"           u'"
"   (ln u)'=-"
"           u"Ý
Goto 0
Lbl K
ClrText
"Int aÞa f(x) dx=0"
""
"Chasles :"
"Int aÞc="
"Int aÞb+Int bÞc"Ý
1ÞW
Do
ClrText
If W=1
Then "f(x)=x"
"     1"
"F(x)=-x‹+k"
"     2"
IfEnd
If W=2
Then "f(x)=k'"
""
"F(x)=k'x+k"
IfEnd
If W=3
Then "f(x)=x¨n"
"      1"
"F(x)=---x¨(n+1)+k"
"     n+1"
IfEnd
If W=4
Then
"     1"
"f(x)=-"
"     x"
""
"F(x)=ln x+k"
IfEnd
If W=5
Then
"      1"
"f(x)=---"
"     2†x"
""
"F(x)=†x+k"
IfEnd
If W=6
Then
"     1"
"f(x)=--"
"     x‹"
""
"     -1"
"F(x)=--+k"
"     x"
IfEnd
If W=7
Then "f(x)=¥x"
""
"F(x)=¥x+k"
IfEnd
If W=8
Then "f(x)=sin x"
""
"F(x)=-cos x+k"
IfEnd
If W=9
Then "f(x)=cos x"
""
"F(x)=sin x+k"
IfEnd
If W=10
Then "u'©u¨n"
""
" 1"
"---©u¨(n+1)+k"
"n+1"
IfEnd
If W=11
Then "u'"
"--"
"u"
""
"ln u+k"
IfEnd
If W=12
Then "u'¥u"
""
"¥u+k"
IfEnd
If W=13
Then "u'"
"---"
"2†u"
""
"†u+k"
IfEnd
If W=14
Then "u'"
"--"
"u‹"
""
"-1"
"--+k"
"u"
IfEnd
If W=15
Then "u'sin u"
""
"-cos u+k"
IfEnd
If W=16
Then "u'cos u"
""
"sin u+k"
IfEnd
W<16ãLocate 21,7,"#E69B"
W>1ãLocate 20,7,"#E69A"
Do
LpWhile Getkeyá0
Do
GetkeyÞV
LpWhile Vá38 And Vá27 And Vá47
V=47ãBreak
V=38ãW-1ÞW
V=27ãW+1ÞW
W=17ã16ÞW
W=0ã1ÞW
LpWhile 1=1
ClrText
"Int aÞb f(x) dx"
"=-Int bÞa f(x) dx"Ý
ClrText
"Linearite des int :"
""
"Int f+g=Int f+Int g"
"Int k©f(x)=kInt f(x)"Ý
ClrText
"Si f est positive"
"sur I alors Int â0"Ý
ClrText
"Si"
"f(x)âg(x)"
"Alors"
"Int f(x)âInt g(x)"Ý
ClrText
"Inegalite de la moy"
"Si "
"màf(x)àM"
"Alors"
"m(b-a)àInt f(x)àM(b-a)"Ý
ClrText
Goto 0
Lbl L
"         Þ -Þ"
"arg z=Î=(u
""
"z=r(cos Î+¿sin Î)"
"avec r=@7Cz@7C"
"et Î=arg z"Ý
ClrText
"      a"
"cos Î=-"
"      r"
"           b"
"     sin Î=-"
"           r"Ý
ClrText
"arg(#E635)=-arg(z) [2Ð]"
"arg(-z)=Ð+arg z  \""
"arg(zz')"
"   =arg z+arg z'"Ý
ClrText
"   1"
"arg-=-arg z"
"   z"
"      z"
"   arg-=arg z-arg z'"
"      z'"Ý
ClrText
ViewWindow -2,5,0,-2,5,0
AxesOn
F-Line 0,0,3,2
F-Line 1,2,4,4
Text 5,40,"(u
Cls
"            z@E744-z@E743"
"(AB
"            z@E742-z@E741"Ý
ClrText
"Ecriture exp :"
""
"z=r¥(¿Î)"Ý
Goto 0
Lbl M
ClrText
"f densit proba si :"
"Continue,positive"
"sur I,et aire sur I"
"=1u.a (unit d'aire)"Ý
ClrText
"p(aàXàb)"
"=#E6BB(aÞb)f(x) dx"Ý
ClrText
"Esperance:"
"I=[a,b]"
"E(x)=#E6BB(aÞb)xf(x) dx"Ý
ClrText
"Esperance loi unif"
"E(x)=(b+a)/2"Ý
ClrText
"Loi exponentielle:"
"f(x)=#E64A¥(-#E64Ax)"
""
"E(x)=1/#E64A"Ý
ClrText
"Exp,dur#E60Ae de vie"
"sans vieillissement"
""
"P@E754â@E761(Tâa+h)=p(Tâh)"Ý
Goto 0
Lbl N
ClrText
"Loi normale standard"
"ou centr#E60Ae :"
"N(0,1)"Ý
ClrText
"P(aàXàb)"
"Þ NormCD(a,b)"Ý
ViewWindow -4,4,1,-1,1,1:CoordOn:GridOff:AxesOn:LabelOn
Graph Y=(1¹(†(2Ð)))©¥(-X‹¹2)
SketchDotVertical -1
SketchDotVertical 1
Text 40,3,"P(Xà-a)"
Text 47,3,"=P(Xâa)"Ý
ClrText
"InvNormCD() :"
"Calcule une absisse"
"#E601 partir d'une aire."Ý
Cls
Graph Y=(1¹(†(2Ð)))©¥(-X‹¹2)
"(1¹(†(2Ð)))©¥(-X‹¹2)"Þô1
For -3ÞX To 0 Step 0.15
Xà-1ãF-Line X,ô1,1,ô1
X>-1ãF-Line X,ô1,-X,ô1
Next
Text 35,80,"a"
Text 1,10,"InvNormCD(AIRE NOIRE) = a"Ý
ClrText
"Valeurs a connaitre:"
"P(-1.96àXà1.96)=95%"
"P(-2.58àXà2.58)=99%"Ý
Cls
Graph Y=(1¹(†(2Ð)))©¥(-(X-1)‹¹2)
Text 35,80,"#E64B"
-1ÞX
F-Line 0,ô1,2,ô1
Text 26,86,"#E651"
Text 50,2,"N(#E64B,#E651‹)"Ý
ClrText
"Centrer une loi"
"normale generale :"
"X         N(#E64B,#E651‹)"
"  X-#E64B"
"Z=---     N(0,1)"
"   #E651"Ý
ClrText
"Calcul avec norm gene"
"NormCD(a,b,#E643,#E64B)"Ý
ClrText
"P(#E64B-#E651àXà#E64B+#E651)=68.3%"
"P(#E64B-2#E651àXà#E64B+2#E651)=95.4%"
"P(#E64B-3#E651àXà#E64B+3#E651)=99.7%"Ý
Goto 0
Lbl O
ClrText
"B(n,p)"
"p:proba du succes"
"E(X)=np"
"#E651(X)=†(np(1-p))"
"P(X=k)=(n˜k)((p)¨k)©((1-p)¨(n-k))"Ý
ClrText
"N(np,np(1-p))"
"Conditions :"
"nâ30  npâ5  n(1-p)â5"Ý
Goto 0
Lbl P
ClrText
"Equation cart plan:"
"ax+by+cz+d=0"
"Þ"
"n(a,b,c) vect norm"Ý
ClrText
"Pos relative de 2"
"plans:"
"-Paralleles"
"-Colineaires"
"-Secants"
"-Perpendiculaires"Ý
ClrText
Goto 0
Lbl Q
ClrText
"   X@E76E"
"F@E76E=--"
"   n"Ý
ClrText
"Pour 95%"
"I=[p-1.96©S
"  †(p(1-p))"
"S=---------"
"      †n"Ý
ClrText
""
"I=[p-u#E640©S
""
"  †(p(1-p))"
"S=---------"
"      †n"Ý
ClrText
"Si p est inconnu :"
"I=[f@E76F@E762@E773-(1/†n)
"   f@E76F@E762@E773+(1/†n)]"
""
"(Niveau de confiance"
"=95%)"Ý
ClrText
"Toujours #E601 condition"
"que :"
"nâ30"
"nfâ5"
"n(1-f)â5"Ý
Goto 0
Lbl Y
ClrText
Locate 1,1,"1.NormCD()"
Locate 1,2,"2.InvNormCD()"
While Getkeyá0
WhileEnd
Do
GetkeyÞV
LpWhile Vá72 And Vá62 And Vá47
V=47ãGoto 0
If V=72
Then ClrText
"Si centree:#E64B=0 #E651=1"
"#E64B "?ÞP
"#E651 (†#E651‹) "?ÞQ
"a "?ÞR
"b "?ÞS
NormCD(R,S,Q,P)Ý
Else If V=62
Then ClrText
"Si centree:#E64B=0 #E651=1"
"Aire "?ÞP
"#E64B "?ÞQ
"#E651 "?ÞR
ClrText
"L'aire est de"
""
Locate 1,2,P
"sur ]-¾
Locate 9,3,InvNormCD(P,R,Q)
Locate 20,3,"]"Ý
IfEnd
IfEnd
Goto 0
Lbl X
ClrText
"Pause,"
"appuyez sur EXE"Ý
Goto 0
Vrac syntaxes :
BinomialCD(X,20,(1»5))
(N˜k)((P)¨k)©((1-P)¨N-k)
Esperance loi ´om:
n©p
NormCD(a,b,#E643,#E64B)