Filename:MATHS
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"Ù
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=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Ù
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 decroiss",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 decroiss"Ø
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;y#E5D0)"Ù
"Vecteur u(#E640;#E641)"Ù
"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;AC)"Ù
"   =#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;OM)"Ù
""Ù
"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;OM)=arg(zb-za)"Ø
ClsÙ
"            z@E744-z@E743"Ù
"(AB;CD)=arg -----"Ù
"            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 standart"Ù
"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 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 binom:Ù
nÀpÙ
NormCD(a,b,#E643,#E64B)