Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
21→O:1→dim(ʟM
FnOff :AxesOff:ClrDraw
0→Xmin:1→∆X
0→Ymin:1→∆Y
ʟM(1→B
If not(ʟM(1:1→B
For(A,56,62
Horizontal A:End
For(A,1,11
For(I,0,1
Text(⁻1,3,6A+I,sub(" Mathṗ0wa!!",A,1
End:End
Horizontal 0
Vertical 94
Horizontal 49
Vertical 0
{2,2,2,28,92,28,92,2,2,2
For(A,3,9,2
Line(Ans(A-2),Ans(A-1),Ans(A),Ans(A+1
End
Line(88,2,88,28
Text(35,68,"<<
Text(10,10," Edition ALGEBRE
Text(20,10,"Choisissez une tache:
{5,56,6,59,0,62,72,59,73,56
For(A,1,9,2
Pt-Change(Ans(A),Ans(A+1
End
StorePic 7
Lbl θ:FnOff
"Div Euclidienne Simplif FractionValeur Exacte Inequations ResoudreEquationSolveur SystemesConvertir Bases PGCD et PPCM Nombre Premier DecompFacteurs1 Simplif. Racine²Integrales Suites Arit/GeomTheoreme Bezout Congruences Simplifier ln( Int definiθ ln( Equ ln(N)=ln(M) Complexes Identification Approx. Euler
ClrDraw:RecallPic 7
For(A,0,3
Text(35+6A,5,sub(Ans,16(B+A)-15,16
End
Pt-On(90,28-24B/O,2
Repeat K
getKey→K
End
If K=25 and B>1:B-1→B
If K=34 and B<O:B+1→B
B→ʟM(1
If K=45 or K=22:Goto Z
If K≠105:Goto θ
1→P:ClrHome
If B=1:Then
Disp "A/B"
Prompt A,B
iPart(A/B→Q
Disp "=",Q,"RESTE",A-QB
1→B
End
If B=2:Then
Input "►Frac=",A
Disp A►Frac
End
If B=3:Then
Input "",Str1
real(13,Str1→Str1
real(19,Str1
DelVar P
End
If B=4:Then
Menu("INEQUATIONS ",">",I1,"<",I2,"≥",I3,"≤",I4
:Lbl I1:">→Str4:Goto I
Lbl I2:"<→Str4:Goto I
Lbl I3:"≥→Str4:Goto I
Lbl I4:"≤→Str4
Lbl I:ClrHome
:Input Str1
ClrHome
Input Str1+Str4,Str2
0→θ
Lbl L1
DelVar XDelvar Vexpr(Str1→A
expr(Str2→B
1ᴇ9→X
expr(Str1→C
expr(Str2→D
If A-B<0 and C-D<0:1→V
If B-A<0 and C-D<0:1→V
If θ≠1
Disp "
Str2+"-("+Str1+")→Str3
String►Equ(Str3,Y₁
solve(Y₁,X,1→E
If B=A or V=1
Then
If Str4=">
"< →Str4
If Str4="<
"> →Str4
If Str4="≥
"≤ →Str4
If Str4="≤
"≥ →Str4
End
If θ=1
Goto L2
If fPart(E
Disp "","",E►Frac
Output(5,1,"plotsquareX"+Str4
Output(5,4,round(E,5
4→B
End
If B=5:Then
Input Str1
ClrHome
If 10≥length(Str1:Then
Input Str1+"=",Str2
Else:1→Z
Disp Str1
Input "=",Str2
End
Output(2,1," CALCUL · · ·
Disp "","
Str2+"-("+Str1→Str3
[i]→X
If 0[i]=expr(Str3:Then
Disp "plotsquareX=[i]
Pause
End
⁻[i]→X
If expr(Str3)=0[i]
Then
Disp "plotsquareX=⁻[i]
Pause :Goto RE
End
0→θ:Lbl L3
Str3→Y₁
Output(2,9,"plotsquare
solve(Y₁,X,99→X
Output(2,11,"plotsquare
solve(Y₁,X,⁻99→S
Output(2,13,"plotsquare
solve(Y₁,X,0→T
If θ=1:Goto L4
Disp X►Frac
Output(4+Z,1,"x₁=
If S≠X:Then
Disp S►Frac
Output(5+Z,1,"x₂=
End
If T≠X and T≠S
Then
Disp X►Frac
Output(6+Z,1,"x₃=
End
End
If B=6:Then
"ABCDEFGHIJKLMNOPQRST→Str3
Lbl SY
Input "INCONNUS:",I
If I≤1 or I≥21 or fPart(I
Then:Pause "ENTRE 2 ET 20 !
Goto SY
End
DelVar [B]
{I,I+1}→dim([B]:For(C,1,I
"→Str2
For(L,1,I+1
ClrHome
Disp "LIGNE","COLONNE","
Output(1,7,C
Output(2,9,L
sub(Str3,L,1→Str5
If L≠I+1
Output(6,1,"*"+Str5
Input Str2,Str1
If L=1
Str1+Str5+"+→Str2
If L≠1 and L≠I
Str2+Str1+Str5+"+→Str2
If L=I:Str2+Str1+Str5+"=→Str2
expr(Str1→[B](C,L
End:End
rref([B]→[B]
ClrHome
DelVar A
For(L,1,I
1+A→A
Disp [B](L,I+1)►Frac
Output(A,1,"plotsquare"+sub(Str3,L,1)+"=
If not(fPart(L/7:Then:Pause :DelVar AClrHome
End
End
DelVar [B]
DelVar Str3
6→B
End
If B=7:Then
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZθ→Str1
Input "BASE DEPART=",X
Input "BASE ARRIV.=",Y
Input "X=",Str2
length(Str2→N
DelVar P
For(W,0,N-1
inString(Str1,sub(Str2,N-W,1))-1
AnsX^W+P→P
End
If not(P:Return
Lbl R
P→Z
" →Str2
Repeat not(Q
iPart(Z/Y→Q
Z-YQ→R
Q→Z
sub(Str1,R+1,1)+Str2→Str2
End
⁻1+iPart(log(P-1
1+iPart(log(₁₀^(Ans)iPart((P-1)₁₀^(⁻Ans→T
If T>13
Disp "TROP GRAND
Pause Str2
Menu("RESTART","STOP",Q,"RECONVERTIR",S
Lbl S
Y→X
Input "RECONV=",Y
Goto R
Lbl Q:7→B:DelVar P
End
If B=8:Then
Input "N1:",A
Input "N2:",J
Disp "PGCD:",gcd(A,J),"PPCM:",lcm(A,J
End
If B=9:Then
4→V:Prompt N
For(A,2,N
If A≠N and N/A=iPart(N/A:Then
Output(3,1,"DIVISIBLE PAR:
Output(V,9,"plotsquare
Output(V,10,A
V+1→V:If V>8:N→A
End
End
If V=4:Output(3,1,"PREMIER!
End
If B=10:Then
DelVar UPrompt A
ClrList L₁
While not(fPart(.5A
U+1→U
2→L₁(U
.5A→A
Disp 2
End
√(A→B
3→W
While A-1
If W>B
A→W
While not(fPart(A/W
U+1→U
W→L₁(U
A/W→A
Disp W
√(A→B
End
W+2→W
End
Pause L₁
DelVar P
End
If B=11:Then
Input "√(",E
1→J:E→Q
Repeat not(G
DelVar G2→D
While D²≤E and not(G
E/D²→A
If not(fPart(A
Then
A→E:JD→J:1→G
End:D+1→D:End
End:0→θ
iPart(log(J→θ
iPart(log(E→X
Output(4,3+θ,"√(
Output(4,2,J
Output(4,5+θ,E
Output(4,6+X+θ,")
Output(6,2,√(Q
End
If B=12:Then
ZStandard
Horiz:Radian
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
Input "f(x)=",Str1
Text(10,21,Str1+" dx
ClrHome
Input "Borne inf.=",J
Text(18,17,J
Input "Borne sup.=",A
Text(2,17,A
Str1→Y₁
fnInt(Y₁,X,A,J→X
ClrHome
Disp "L'[i]nt[e]gral[e] [e]st ",abs(X►Frac
Pause :ClrHome
Disp "Valeur Moy. :",abs(X)/(J-A
Pause :ClrHome
Input ".ABSCISSE:",A
Input ".ORDONNEE:",J
ClrHome
Disp "> AIRE:",abs(ABJ
Pause
Degree:Full:ZPrevious
DelVar P
End
If B=13:Then
"Retour→Str8
Lbl ST:13→B
Menu(" Suites ","Arithmetiques",AR,"Geometriques",GE,"Detecter...",TS,Str8,θ
Lbl TS
Disp "ENTRE 3 TERMES","CONNUS
Prompt A,B,C
Input "1er RANG:",X
Disp "SUITE
If AC=B²:Then
Disp "GEOMETRIQUE","DE RAISON",B/A►Frac,"1er TERME Uo:",A^(X+1)*B^(⁻X►Frac
Else
If B=(A+C).5:Then
Disp "ARITHMETIQUE","DE RAISON",B-A►Frac,"1er TERME Uo:",A(X+1)-XB►Frac
Else
Disp "NON CONNUE.","DESOLE
End:End
Pause
Goto ST
Lbl AR
Menu("","TERME DEFINI",TD,"SOMME",SO,Str8,ST
Lbl GE
Menu("","TERME DEFINI",Rθ,"SOMME",OS,Str8,ST
Lbl Rθ
Input "RAISON:",R
Input "1er TERME:",U
Input "TERME CHOISI:",N
Disp "","","U",R^NU
Output(6,2,N
Pause :Goto GE
Lbl OS
Input "RAISON:",R
Input "1er TERME:",A
Input "NOMBRE DE TERMES:",N
Disp "SOMME:",A(1-R^N)/(1-R
Pause :Goto GE
Lbl TD
Input "RAISON:",R
Input "1er TERME:",U
Input "TERME CHOISI:",N
Disp "U",RN+U
Output(5,2,N
Pause :Goto AR
Lbl SO
Input "NOMBRE TERMES:",N
Input "1er TERME:",A
Input "DERNIER TERME:",B
Disp "SOMME:",N(A+B)/2
Pause :Goto AR
End
If B=14:Then
RectGC
Disp "AU+BV=Z
Prompt A,B,Z
abs(A→S
abs(B→T
gcd(S,T→P
If fPart(Z/P
Then
Disp "IMPOSSIBLE
Goto 9C
End
{S,T→L₁
{0,0→L₂
2→W
While P-L₁(W
W+1→W
int(L₁(W-2)/L₁(W-1→L₂(W
L₁(W-2)-AnsL₁(W-1→L₁(W
End
1→I
{1,L₂(W→L₁
For(N,1,W-3
L₁(I)+L₁(3-I)L₂(W-N→L₁(I
3-I→I
End
S/AL₁(I)→U
T/B⁻L₁(3-I→V
Disp "PARTICULIERES :
Disp "AU+BV=gcd(A,B)
Disp U,V
Disp "AU+BV=Z
Disp UZ,VZ
Pause
Disp "GENERALES :
Disp "AX+BY=Z
Disp "X=Y₁","Y=Y₂
IndpntAuto
DependAuto
0→TblStart
1→∆Tbl
"UZ+XB→Y₁
"VZ-XA→Y₂
Pause
DispTable:DelVar P
Lbl 9C
14→B
End
If B=15:Then
Lbl D:15→B
Menu(" CONGRUENCES ","CONGRUENCES",RF,"NOMBRE CONGRU",C1,"PUISSANCES",C2,"TABLEAU",C3,Str8,θ
Lbl RF
Disp "CONGRUENCES"
Prompt A,N
A→X
1→I
While I<N
X-NiPart(X/N→X
If X=1
Then
Disp I
Pause :Goto D
End
AX→X
I+1→I
End
Pause "PAS DE SOL
Goto D
Lbl C1
ClrHome
Disp "A=B(mod M)
Prompt A,M
int(A→A
int(abs(M→M
If M and A<ᴇ10
Then
Disp A-Mint(A/M
Else
If not(M
Then
Disp "Erreur: M=0
Else
Disp "Nombre trop gros
End
End
Pause
Goto D
Lbl C2
ClrHome
Disp "Solv congruences
"Pas de resultats→Str1
Disp "A^B=C (mod M)
Prompt A,B,M
For(E,2,B
A^E→S
If S≥ᴇ10
Then
ClrHome
Pause Str1
B→E:Goto D
End
S/M→C
S-Mint(C→D
ClrHome
Disp "Reste:",D►Frac
Disp "Puissance:",E
If D≤1
Then
Pause "Valeur finale
B→E:Goto D
End
If D≥M-1:Pause
End
ClrHome
Pause Str1
Goto D
Lbl C3
ClrHome
Disp "Tableau de congr
Input "Module:",Str1
DelVar Klength(Str1→L
int(abs(expr(Str1→M
2+4L→D
int(79/D→P
Input "RectGCtion:",Str1
String►Equ(Str1,Y₁
FnOff
Horizontal 40
Horizontal 31
Horizontal 22
Line(0,40,0,22
Line(16,40,16,22
Line(94,40,94,22
Text(23,2,"x
Text(32,2,"f(x)
Text(42,0,"f(X)="+Str1
Text(48,0,"Mod=",M
StorePic 1
For(A,0,M-1
Text(23,18+AD-PKD,A
Y₁(A)-Mint(Y₁(A)/M
If Ans=int(Ans
Then
Text(32,18+AD-PKD,Ans
Else
Text(32,18+AD-PKD,"!
End
Line(16+AD-PKD+D,40,16+AD-PKD+D,22
If not(fPart((A+1)/P
Then
K+1→K
Pause
If A≠M-1
ClrDraw
RecallPic 1
End
End
If fPart(A/P
Pause
ClrHome
ZStandard
AxesOn
FnOn
DelVar Pic1
Pause
FnOff :AxesOff
ZPrevious:DelVar P
End
If B=16:Then
Input "ln(",Str1
If sub(Str1,1,1)="√(
Then
".5ln("+sub(Str1,2,length(Str1)-1→Str2
Goto Lθ
End
inString(Str1,"/"→A
If A>0:Then
"ln("+sub(Str1,1,A-1)+")-ln("+sub(Str1,A+1,length(Str1)-A→Str2
If sub(Str2,1,3)="ln(1)
sub(Str2,4,length(Str2)-3→Str2
Goto Lθ
End
inString(Str1,"*"→A
If A>0:Then
"ln("+sub(Str1,1,A-1)+")+ln("+sub(Str1,A+1,length(Str1)-A→Str2
Goto Lθ
End
inString(Str1,"^")→A
If A>0:Then
sub(Str1,A+1,length(Str1)-A)+"ln("+sub(Str1,1,A-1→Str2
Goto Lθ
End
"ln("+Str1→Str2
Lbl Lθ
Disp "","EQUIVAUT A
Output(5,1,Str2:16→B
End
If B=17:Then
Input "ln(",Str1
"("+Str1→Str1
"0→Str2
">→Str4
1→θ
Disp " EXISTE SI
Goto L1
Lbl L2
Disp "X"+Str4,E,"
Disp "L'ENSEMBLE DES","DEFINITIONS EST
1ᴇ9→X
If sub(Str4,1,1)=">
Then
Disp "] ,+OO[
Output(7,2,E
Else
Disp "]-OO, [
Output(7,6,E
End:17→B
End
If B=18:Then
Disp "ln(N)=ln(M)",""," DEF:]A,B[","
Input "N=",Str1:Input "M=",Str2:Lbl L0
Disp "A<B
Input "A=",A
Input "B=",B
If B≤A:Goto L0
ClrHome
Disp "ln STRICT CROISS","
1→θ
Goto L3
Lbl L4
Disp "X=",X►Frac,"
If X≥B or X≤A:Disp "PAS DE SOLUTION
Disp "X ᴇ ]A,B[","S={ }
Output(7,4,X:18→B
End
If B=19:Then
Lbl CS:19→B
"ERREUR→Str1
Str1→Str2:Z→X
ClrHome
Menu(" COMPLEXES ","TrigoSolveur",AG,"Algebrique",AQ,"Pola[i]re",PO,"Exponentiel",EX,"Transformation",TF,"Tracer a+bi",OO,Str8,θ
Lbl TF:Radian
ClrHome
Menu(" SOUS LA FORME ","f=z->z+a",CW,"f=z->e^([i]θ)Z",CH,Str8,CS
Lbl CW
Input "f=z->z+",Z
Disp "","LA TRANSFORMATI.","ASSOCIE A f EST","UNE TRANSLATION","DE VECTEUR u","ET D'AFFIXE
Output(7,13,Z
Pause :Goto TF
Lbl CH
Input "f=z->e^([i]*",Z
Disp "","LA TRANSFORMATI.","ASSOCIE A f EST","UNE ROTATION","DE CENTRE O ET","D'ANGLE
Output(7,9,Z
Pause :Goto TF
Lbl EX
DelVar F
Disp "Z=r[e]^θ[i]
Input "plotsquarer=",Str1
Input "plotsquareθ=",Str2
expr(Str1→A
expr(Str2→B
DelVar H
Goto Wθ
Lbl θW
A(cos(B)+[i]sin(B→C
Disp "","Z=","","Z=["+Str1+","+Str2+"]
Output(5,3,round(C,3
Pause :Goto CS
Lbl AQ
Input "Z=",Z
abs(Z→M
Disp "","CONJUGUE",conj(Z),"","MODULE",M
DelVar K
If fPart(M) and non(fPart(round(M²,5:Then
1→K
Output(8,6,"√(
Output(8,7,M²
End:Pause
ClrHome
Degree
Disp "ARGUMENT Degree",angle(Z),"ARGUMENT Radian
Radian
Disp angle(Z
Output(5,11,round(angle(Z)/π,3
Output(5,15,"·π
Output(7,1,"Z=[√( , ]
Degree
If K=1:Then
Output(7,5,abs(Z)²
Else
Output(7,5,"
Output(7,4,round(abs(Z),1
End
Output(7,8,round(angle(Z),1
DelVar F
Pause :r[e]^θ[i]
ClrHome
Disp "FORME EXPO DEG
Pause Z
Disp "","FORME EXPO RAD
Radian
Pause Z
Real
Goto CS
Lbl PO
DelVar F
Disp "Z=[r,θ]
Input "plotsquarer=",Z
Input "plotsquareθ=",θ
1→H:Lbl Wθ
Menu(" AVEC θ EN ","Radian",RD,"Degree",DG
Lbl RD:Radian
Goto P0
Lbl DG:Degree
Lbl P0
If H=0:Goto θW
Z(cos(θ)+[i]sin(θ→A
round(A,0→A
Disp "","Z=","","Z=
a+bi
Output(5,3,A
r[e]^θ[i]
Output(7,3,A
Real:Pause
Goto CS
Lbl AG
Input "Z=",Z
Z→X
abs(Z→M
real(Z)/M→R
imag(Z)/M→I
Disp "","CONJUGUE","","","MODULE
Output(4,1,conj(Z
DelVar A
If fPart(M) and non(fPart(round(M²,5
Then:1→A
Output(7,1,"√(
Output(7,2,M²
Else
Output(7,1,M
End
Pause :ClrHome
Disp "Soit θ un arg(Z)"," plotsquarecos(θ)="," plotsquaresin(θ)=
"ERREUR
If R=1:"1
If R=⁻1
"⁻1
If R=0:"0
If R=.5
"1/2
If R=⁻.5
"⁻1/2
If R=.5√(2
"√(2)/2
If R=⁻.5√(2
"⁻√(2)/2
If R=.5√(3
"√(3)/2
If R=⁻.5√(3
"⁻√(3)/2
Ans→Str1
"ERREUR
If I=1
"1
If I=⁻1
"⁻1
If I=0
"0
If I=.5
"1/2
If I=⁻.5
"⁻1/2
If I=.5√(2
"√(2)/2
If I=⁻.5√(2
"⁻√(2)/2
If I=.5√(3
"√(3)/2
If I=⁻.5√(3
"⁻√(3)/2
Ans→Str2
Output(2,10,Str1
Output(3,10,Str2
R→C:I→S:DelVar θ
Lbl T1
"ERREUR
If C=1 and S=0
"0
If S=.5 and C=.5√(3
"π/6
If S=C and C=.5√(2
"π/4
If C=.5 and S=.5√(3
"π/3
If C=0 and S=1
"π/2
If C=⁻1 and S=0:"π
If S=.5 and C=⁻.5√(3
"5π/6
If S=⁻C and C=⁻.5√(2
"3π/4
If C=⁻.5 and S=.5√(3
"2π/3
If S=⁻.5 and C=.5√(3
"⁻π/6
If C=√(2)/2 and S=⁻C
"⁻π/4
If C=.5 and S=⁻.5√(3
"⁻π/3
If C=0 and S=⁻1:"⁻π/2
If S=⁻.5 and C=⁻.5√(3
"⁻5π/6
If S=C and C=⁻.5√(2
"⁻3π/4
If C=⁻.5 and S=⁻.5√(3
"⁻2π/3
Ans→Str1
Output(5,3,"θ="+Str1
If sub(Str1,1,1)≠"E
Output(5,11,"+2kπ
If θ=.5
Goto T2
Output(7,1,"Z=[√( ,"+Str1+"]
If A=1:Then
Output(7,5,M²
Else
Output(7,4,"
Output(7,5,M
End
Pause :ClrHome
Output(1,1,"FORME TRIGO
Output(3,1,"Z=√(·(cos("+Str1+")+[i]sin("+Str1+"))
If A=1:Then
Output(3,4,M²
Else
Output(3,3,"
Output(3,4,M
End
Output(6,1,"FORME EXPO
Output(8,1,"Z=√(·e^([i]"+Str1+")
If A=1:Then
Output(8,4,M²
Else
Output(8,3,"
Output(8,4,M
End
Pause :Goto CS
Lbl OO
DelVar F
Input " Z=",X
ZoomSto
5→Xmax:⁻5→Xmin
5→Ymax:⁻5→Ymin
If 5≤real(X
2+real(X→Xmax
If ⁻5≥real(X
real(X)-2→Xmin
If 5≤imag(X
2+imag(X→Ymax
If ⁻5≥imag(X
imag(X)-2→Ymin
AxesOn
Pt-On(real(X),imag(X),3
Pt-Off(real(X),imag(X
Pause
AxesOff:ZoomRcl
Goto CS
End
If B=20:Then
:"AX³+BX²+CX+D→Str0
DelVar F
Disp "plotsquaref(X)=",Str0,"
Input "A=",Str5:Input "B=",Str6:Input "C=",Str7:Input "D=",D
expr(Str5→A
expr(Str6→B
expr(Str7→C
ClrHome
Str0→Y₁
solve(Y₁,X,1→X
Disp "plotsquaref( )","=0
Output(1,4,X
Pause :ClrHome
Disp "plotsquaref(X)=","(AX²+BX+C)(X- )
Output(2,14,X
Pause :ClrHome
Disp "plotsquaref(X)=(EX1)X³+(E","X2)X²+(EX3)X+EX4","
Input "EX1=",Str1
Input "EX2=",Str2
Input "EX3=",Str3
ClrHome
Disp "IDENTIFICATION
Str1+"-"+Str5→Y₁
solve(Y₁,A,1→A
Str2+"-"+Str6→Y₁
solve(Y₁,B,1→B
Str3+"-"+Str7→Y₁
solve(Y₁,C,1→C
Disp A►Frac,B►Frac,C►Frac
Output(2,1,"·A=
Output(3,1,"·B=
Output(4,1,"·C=
20→B
End
If B=21:Then
Lbl Y2:21→B
Menu(" APPROX. EULER ","Derivee connue",2Y,"equ dif connue",2Z,Str8,θ
Lbl 2Y
Input "DE:",P
Input "A:",D
Input "PAR:",H
Input "F'(X)=",Str1
Str1→Y₁
Input "F(P)=",F
{P→L₁
{F→L₂
FnOff
DelVar WWhile P<D-H and getKey-45
W+1→W
Y₁(P)H+L₂(W→L₂(W+1
A+H→L₁(W+1
P+H→P
End
Plot1(xyLine,L₁,L₂,·
ZoomStat:DelVar P
Pause
ZPrevious
Goto Y2
Lbl 2Z
Input "DE:",X
Input "A:",D
Input "PAR:",H
Disp "Y'+AY=B
Input "A(X)=",Str1
Str1→Y₁
Input "B(X)=",Str1
Str1→Y₂
Input "Y(X0)=",F
{P→L₁
{F→L₂
FnOff
0→W
DelVar WWhile X<D-H and getKey-45
W+1→W
HY₂(X)+(1-HY₁(X))L₂(W→L₂(W+1
X+H→X
X→L₁(W+1
End
Plot1(xyLine,L₁,L₂,·
ZoomStat:DelVar P
Pause :ZPrevious
Goto Y2
End
If P:Pause
Goto θ
Lbl Z
ClrDraw:ZStandard
DelVar Pic7
AxesOn:B→ʟM(1
ClrHome
Disp "MathPowa-Edition","ALGEBRE.
Output(4,1,"
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
Disp "LOADING…
5→O:1→dim(ʟM
PlotsOff :FnOff :AxesOff:ClrDraw
0→Xmin:1→∆X
0→Ymin:1→∆Y
ZoomSto
ʟM(1→B
If not(ʟM(1:1→B
"R[|e][t]o|u[r]→Str8
For(A,56,62
Horizontal A:End
For(A,1,11
For(I,0,1
Text(⁻1,3,6A+I,sub(" M[|a][t]h[ṗ]0|w[|a]!!",A,1
End:End
Horizontal 0
Vertical 94
Horizontal 49
Vertical 0
{2,2,2,28,92,28,92,2,2,2
For(A,3,9,2
Line(Ans(A-2),Ans(A-1),Ans(A),Ans(A+1
End
Line(88,2,88,28
{5,56,6,59,0,62,72,59,73,56
For(A,1,9,2
Pt-Change(Ans(A),Ans(A+1
End
Text(35,68,"<<
Text(10,10," E[|d]i[t]io[n] STATS [|e][t] PROBAS
Text(20,10,"Choi[s]i[s][s][|e][z] |u[n][|e] [t][|a][|c]h[|e]:
StorePic 7
Lbl θ:FnOff
"Variable qualit Variable quantitR[|e]g[r][|e][s][s]io[n] 2|v[|a][r][s]Loi Bi[n]omi[|a]l[|e] Loi [|d][|e] Poi[s][s]o[n]
ClrDraw:RecallPic 7
For(A,0,3
Text(35+6A,5,sub(Ans,16(B+A)-15,16
End
Pt-On(90,28-24B/O,2
Repeat K
getKey→K
End
If K=25 and B>1:B-1→B
If K=34 and B<O:B+1→B
B→ʟM(1
If K=45 or K=22:Goto Z
If K≠105:Goto θ
1→P:ClrHome
If B=1:Then
Disp "Nom du caractere"
Input "etudie:",Str0
Disp "Resultats
Output(8,1,"(max 6≠)
Lbl 1A
Input "Possibles:",Str1
0→C:0→N
Repeat N
inString(Str1,",→K
If not(K:Then
1→N
Str1
Else
sub(Str1,1,K-1
End
If not(C:Ans→Str2
If C=1:Ans→Str3
If C=2:Ans→Str4
If C=3:Ans→Str5
If C=4:Ans→Str6
If C=5:Ans→Str7
sub(Str1,K+1,length(Str1)-K→Str1
C+1→C
End
If not(C:Disp "ERREUR
If not(C:Goto 1A
Input "Effectifs:",Str1
expr("{"+Str1→L₁
ClrDraw:Degree
⁻3.7→Xmin:1→Xmax:⁻2→Ymin:1→Ymax
Circle(0,0,1,{[i]
DelVar L₂:dim(L₁→dim(L₂
For(A,1,dim(L₁
round(L₁(A)/sum(L₁),2→K
360K→L₂(A
sum(L₂
Line(0,0,cos(Ans),sin(Ans
If A=1:Str2
If A=2:Str3
If A=3:Str4
If A=4:Str5
If A=5:Str6
If A=6:Str7
Text(7A-7,0,Ans+":",L₁(A)," (",Kᴇ2," I%)
End
Text(47,0,"TOTAL: ",sum(L₁
Horizontal ⁻1.6
Horizontal ⁻2
Text(55,0,Str0
Pause
ZoomRcl
0→P
End
If B=2:Then
Disp "Nom du caractere
Input ":",Str0
Disp "Valeurs","possibles","(centres de
Input "classe): ",Str1
expr("{"+Str1→L₁
Disp "","Avez vous des","effectifs a"," ajouter ?
Pause :0→N
Menu("","Ou[i]",2A,"Non",2B
Lbl 2A
1→N
Input "Effectifs:",Str1
expr("{"+Str1→L₂
If dim(L₁)≠dim(L₂:Then
Disp "","nombre d'effect.","different du","nmbre de valeurs","possibles !",""
Goto 2A
End
Lbl 2B
If N:Then
1-Var Stats L₁,L₂
Else
1-Var Stats L₁
End
ClrDraw
Text(2,10,"- Moyenne = ",ẋ
Text(9,10,"- Effectif total = ",[n]
Text(16,10,"- Médiane = ",[Med]
Text(23,10,"- 1[e]r Quartile = ",[Q1]
Text(30,10,"- 3e Quartile = ",[Q3]
Text(44,10,"- Ecart-type = ",σx
Text(37,10,"- Variance = ",σx²
Horizontal 0
Horizontal 8
Text(55,2,Str0
End
If B=3:Then
Disp "Variable 1:
Input "Valeurs:",Str1
expr("{"+Str1→L₁
Lbl 3A
Disp "","Variable 2:
Input "Valeurs:",Str1
expr("{"+Str1→L₂
If dim(L₁)≠dim(L₂:Then
Disp "","Les listes n'ont","pas le meme nbre","de valeurs !",""
Goto 3A:End
2-Var StatsL₁,L₂
Plot1(Scatter,L₁,L₂,﹢
AxesOn
ZoomStat
Menu(" Regression... ","Lineaire",3B,"Quadratique",3C,"Logarithmique",3D
Lbl 3B
LinReg(ax+b)
DrawF [|a]X+[|b]
If [|b]=0:Text(0,3,"Y=",[|a],"X
If [|b]>0:Text(0,3,"Y=",[|a],"X+",[|b]
If [|b]<0:Text(0,3,"Y=",[|a],"X",[|b]
Pt-On(ẋ,ȳ,2
Text(10,3,"G(",ẋ,",",ȳ,")"
Goto 3Z
Lbl 3C
QuadReg
DrawF [|a]X²+[|b]X+[|c]
Text(0,3,"Y= ",[|a],"x² + ",[|b],"x + ",[|c]
Goto 3Z
Lbl 3D
LnReg
DrawF [|a]+[|b]ln(X
Text(0,3,"Y= ",round([|b],2)," ln(x) + ",round([|a],2)
Lbl 3Z
ExprOff
Trace
PlotsOff :0→P
AxesOff
ZoomRcl
End
If B=4:Then
Input "Nombre d'essais:",N
Input "Nmbre de succes:",K
Input "Proba de succes:",P
N nCr K→C
Disp "Cn^k=",C
Disp "Probabilite=",CP^K(1-P)^(N-K
Pause
Disp "Esperance=",NP
Disp "Variance=",NP(1-P
End
If B=5:Then
Input "n x p =",C
Input "Nombre de succes",K
Disp "Probabilite=",e^(⁻C)*C^K/(K!
End
If B=6:Then
End
If B=7:Then
End
If B=8:Then
End
If B=9:Then
End
If B=10:Then
End
If B=11:Then
End
If B=12:Then
End
If B=13:Then
End
If B=14:Then
End
If B=15:Then
End
If B=16:Then
End
If B=17:Then
End
If B=18:Then
End
If B=19:Then
End
If B=20:Then
End
If B=21:Then
End
If B=22:Then
End
If P:Pause
Goto θ
Lbl Z
ClrDraw:ZStandard
DelVar Pic7
AxesOn:B→ʟM(1
ClrHome
Disp "M[|a][t]hPo|w[|a]-E[|d]i[t]io[n]","Stat[s]-probas.
Output(4,1,"
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Tout sélectionner
Disp "LOADING…
5→O:1→dim(ʟM
FnOff :AxesOff:ClrDraw
0→Xmin:1→∆X
0→Ymin:1→∆Y
ZoomSto
ʟM(1→B
If not(ʟM(1:1→B
"R[|e][t]o|u[r]→Str8
For(A,56,62
Horizontal A:End
For(A,1,11
For(I,0,1
Text(⁻1,3,6A+I,sub(" M[|a][t]h[ṗ]0|w[|a]!!",A,1
End:End
Horizontal 0
Vertical 94
Horizontal 49
Vertical 0
{2,2,2,28,92,28,92,2,2,2
For(A,3,9,2
Line(Ans(A-2),Ans(A-1),Ans(A),Ans(A+1
End
Line(88,2,88,28
{5,56,6,59,0,62,72,59,73,56
For(A,1,9,2
Pt-Change(Ans(A),Ans(A+1
End
Text(35,68,"<<
Text(10,10," E[|d]i[t]io[n] FONCTIONS
Text(20,10,"Choi[s]i[s][s][|e][z] |u[n][|e] [t][|a][|c]h[|e]:
StorePic 7
Lbl θ:FnOff
"Eq|u[|a][t]io[n] D[r]oi[t][|e] E[t]|u[|d][|e] [|a]x²+[|b]x+[|c] T[|a][|b]l[|e][|a]|u V[|a]l[|e]|u[r][s] Eq|u[|a][t]io[n] T[|a][n]g[n][t][|e]D[|e][r]i|v[|e][|e] f'(x)
ClrDraw:RecallPic 7
For(A,0,3
Text(35+6A,5,sub(Ans,16(B+A)-15,16
End
Pt-On(90,28-24B/O,2
Repeat K
getKey→K
End
If K=25 and B>1:B-1→B
If K=34 and B<O:B+1→B
B→ʟM(1
If K=45 or K=22:Goto Z
If K≠105:Goto θ
1→P:ClrHome
If B=1:Then
Disp "Poi[n][t] A
Input "x=",A
Input "y=",B
Disp "Poi[n][t] B
Input "x=",C
Input "y=",D
{A,C→L₁
{B,D→L₂
{A,B→L₃
{C,D→L₄
If A=C and B=D
Goto BA
LinReg(ax+b)
ClrHome
Disp "A",L₃,"B",L₄,"Y=[|a]x+[|b]","[|a]=","[|b]="
Output(6,4,round([|a],8
Output(7,4,round([|b],8
Pause
ZStandard
ZSquare
AxesOn
DrawF [|a]X+[|b]
Pause
AxesOff
ZoomRcl
0→P:1→B
End
If B=2:Then
Lbl 24
ClrHome
Disp "f(x)=Ax²+Bx+C
Prompt A,B,C
B²-4AC→D
Lbl 20
ZoomRcl
ClrDraw:0→P
Menu(" [e][t]|u[|d][e] Fo[n][|c][t][i]o[n] ","[|c]oo[r][|d]. [s]omm[e][t]",21,"f(x)=0",22,"V[|a][r][i][|a][t][i]o[n][s]",23,"G[r][|a][p]h[i]q|u[e]",26,"[|c]h[|a][n]g[e][r] f(x)",24,Str8,25
Lbl 26
Prompt Xmin,Xmax,Ymin,Ymax
AxesOn
DrawF AX²+BX+C
Text(0,0,A,"X² + ",B,"X + ",C
0→G:C→H
Repeat K=45
getKey→K
If K:Then
(Xmax-Xmin)/62→F
Pt-Off(G,H,2
Pt-On(G,H
G+F(K=26)-F(K=24→G
AG²+BG+C→H
Pt-On(G,H,2
Vertical 0
Horizontal 0
Text(57,0,"X= ",G
Text(57,47,"Y= ",H
End
End
AxesOff
Goto 20
Lbl 21
Text(0,0,"COORDONEES DU SOMMET:
⁻B/(2A→K
ᴇ⁻3iPart(ᴇ3K→L
Text(10,5,"x= ⁻[|b]/(2[|a]) = ",⁻B," / ",2A," = ",L
Text(20,5,"y=f(",L,")"
Text(27,9,"=",A,"*",L,"²+",B,"*",L,"+",C
AK²+BK+C→K
Text(34,9,"=",K
Text(50,0,"[|d]o[n][|c] o[n] [|a] S (",L,",",K,")
Pause
Goto 20
Lbl 22
Text(0,0,"f(x)=0
Text(10,5,"Δ=[|b]²-4[|a][|c]
Text(17,9,"=",B,"²-4*",A,"*",C," = ",D
If D<0:Then
Text(24,0,"Δ<0 [|d]o[n][|c] PAS DE SOLUTION
Text(30,32,"REELLE
Pause
ClrDraw
Text(0,0,"[r][|a][|c]i[n][|e][s] [|c]om[p]l[|e]x[|e][s]
Text(7,0,"[|c]o[n]j|ug|u[|e][|e][s]:
(⁻B+[i]√(⁻D))/(2A→K
(conj(⁻B+[i]√(⁻D)))/(2A→L
Text(20,0,"[z]1=(⁻[|b]+[i]√(⁻Δ))/(2[|a])
Text(27,9,"=(",⁻B,"+[i]√(",⁻D,"))/",2A
Text(34,9,"= ",imag([i]K),"+",imag(K),"[i]
Text(41,0,"[z]2=(conj(⁻[|b]+[i]√(⁻Δ)))/(2[|a])
Text(48,9,"=(conj(",⁻B,"+[i]√(",⁻D,")))/",2A
Text(55,9,"= ",imag([i]L),"+",imag(L),"[i]
End
If D=0:Text(24,0,"Δ=0 [|d]o[n][|c] f(x)=0 [|e][n] [s]o[n] SOMMET
If D>0:Then
Text(25,0,"Δ>0 [|d]o[n][|c] o[n] [|a] 2 SOLUTIONS:
(⁻B+√(D))/(2A→K
(⁻B-√(D))/(2A→L
ᴇ⁻3iPart(ᴇ3K→V
ᴇ⁻3iPart(ᴇ3L→W
Text(32,0,"x₁=(⁻[|b]+√(Δ))/(2[|a])
Text(39,8,"=(",⁻B,"+√(",D,"))/",2A," = ",K
Text(46,0,"x₂=(⁻[|b]-√(Δ))/(2[|a])
Text(53,8,"=(",⁻B,"-√(",D,"))/",2A," = ",L
Pause
ClrDraw
Text(0,0,"L'ENSEMBLE DES SOLUTIONS:
Text(10,10,"S= { ",V,",",W,"}
Text(20,0,"f(x) [p][|e]|u[t] [s]'[|e][|c][r]i[r][|e]:
Text(27,0,"f(x)=[|a](x-x₁)(x-x₂)
Text(34,15,"=",A,"(x-",V,")(x-",W,")
End
Pause
Goto 20
Lbl 23
Text(0,0,"f(x)=",A,"x²+",B,"x+",C," [|d]o[n][|c]:
Text(7,2,"f'(x)= 2*",A,"x+",B,"+0 = ",2A,"x+",B
Text(15,10,"f'(x)=0
Text(22,10,2A,"x+",B,"=0"
Text(29,10,2A,"x=",⁻B
⁻B/(2A→K
ᴇ⁻3iPart(ᴇ3K→L
Text(36,10,"x=",⁻B,"/",2A," = ",L
Pause
ClrDraw
Text(0,0,"SI f'(x)>0 [|a]lo[r][s] f [|e][s][t]
Text(7,0,"CROISSANTE.
If A>0:Then
Text(30,47,"-"
Text(30,78,"+"
Text(47,39,"+°
Text(47,46,"°
Text(47,82,"+°
Text(47,89,"°
Line(41,20,61,11
Line(61,11,59,14
Line(61,11,58,10
Line(70,11,91,20
Line(91,20,87,21
Line(91,20,89,17
Text(40,57,"f(",L,")"
Else
Text(30,47,"+
Text(30,78,"-
Text(40,41,"-°
Text(40,48,"°
Text(40,80,"-°
Text(40,87,"°
Line(41,11,62,20
Line(62,20,58,21
Line(62,20,60,17
Line(69,20,91,11
Line(91,11,90,14
Line(91,11,88,10
Text(47,55,"f(",L,")
End
Text(18,30,"x
Text(27,1,"[s]ig[n][|e]
Text(33,6,"[|d][|e] f'(x)
Text(40,1,"|v[|a][r]i[|a][t]io[n]
Text(46,6,"[|d][|e] f
Text(14,83,"+°
Text(14,90,"°
Text(14,40,"-°
Text(14,47,"°
Text(11,58,L
Line(0,36,94,36
Line(0,23,94,23
Line(38,43,38,8
Line(0,8,94,8
Line(65,23,65,43
Line(94,8,94,43
Circle(65,30,2
Text(57,0,"f(",L,")= ",AK²+BK+C
Pause
ClrDraw
Text(0,0,"[|d]o[n][|c] f [|e][s][t]
If A<0:Text(10,0,"- CROISSANTE
If A>0:Text(10,0,"- DECROISSANTE
Text(17,20,"[s]|u[r] ]⁻°
Text(17,44,"° , ",L," ["
If A>0:Text(30,0,"- CROISSANTE
If A<0:Text(30,0,"- DECROISSANTE
Text(37,20,"[s]|u[r] ]",L," , +°° ["
Pause
Goto 20
Lbl 25
2→B
End
If B=3:Then
Input "f(x)=",Str1
Disp "Vo|u[s] [p]o|u|v[|e][z]","[|d][|e]m[|a][n][|d][|e][r] l[|a]","|v[|a]l[|e]|u[r] [|d][|e] f(x)","[p]o|u[r] [t]o|u[t] x o|u","[p]o|u[r] [|c][|e][r][t][|a]i[n][|e][s]","|v[|a]l[|e]|u[r][s] [p][r][|e][|c]i[s][|e][s]","...
DependAuto
Pause
Menu(" TABLEAU DE VAL ","[t]o|u[t] x",31,"|v[|a]l[s] [p][r][|e][|c]i[s][|e][s]",32
Lbl 32
IndpntAsk
Disp "|v[|a]l[|e]|u[r][s]","[s]o|uh[|a]i[t][|e][|e][s]?","([s][|e][p][|a][r][|e][|e][s] [p][|a][r]","[|d][|e][s] |vi[r]g|ul[|e][s])
Input Str2
expr("{"+Str2→TblInput
Goto 35
Lbl 31
Disp "Affi[|c]h[|e][r] l[|e][s]","|v[|a]l[|e]|u[r][s] [|d][|e] f(x)","[|a] [p][|a][r][t]i[r] [|d][|e]
Prompt X
X→TblStart
ClrHome
IndpntAuto
Disp "P|ui[s] [|a]ffi[|c]h[|e][r]","f(x) [t]o|u[t] l[|e][s]","[|c]om[|b]i[|e][n] ? ([p][|a][r]","[|d][|e]f[|a]|u[t]=1 )
Input ∆Tbl
Lbl 35
ZStandard
ZSquare
G-T
AxesOn
Str1→Y₁
DispTable
Disp
FnOff
AxesOff
ZoomRcl
Full
0→P
End
If B=4:Then
Input Str1
Input K
real(12,Str1,"X")→Str2
String►Equ(Str1,Y₁
String►Equ(Str2,Y₂
{0,Y₂(K)→L₂
{0,1→L₁
LinReg(ax+b) Y₂
Equ►String(Y₂,Str2
sub(Str2,1,length(Str2)-3→Str2
{0,K→L₂
{0,1→L₁
LinReg(ax+b) Y₃
Equ►String(Y₃,Str3
sub(Str3,1,length(Str3)-3→Str3
{0,Y₁(K)→L₂
{0,1→L₁
LinReg(ax+b) Y₁
Equ►String(Y₁,Str1
sub(Str1,1,length(Str1)-3→Str1
Str2+"(X-"+Str3+")+"+Str1→Str3
real(19,"y="+Str3
0→P
End
If B=5:Then
Input Str0
real(12,Str0,"X"→Str1
real(19,"f'(X)="+Str1
0→P
End
If P:Pause
Goto θ
Lbl Z
ClrDraw:ZStandard
DelVar Pic7
AxesOn:B→ʟM(1
ClrHome
Disp "M[|a][t]h[p]o|w[|a]-E[|d]i[t]io[n]","Fo[n][|c][t]io[n][s].
Output(4,1,"
En plus, vous pourrez être orange sur le chat 
)
