programmes TI 82(minimum)

(les lignes qui commencent par "//" ne sont pas à recopier :P)
//on commence par initialiser les variables
0->X:0->Y:0->Z:0->L:0->M:0->N
//ensuite on demande les valeurs du torseur en A
Prompt X,Y,Z,L,M,N
X->C:Y->D:Z->E:L->F:M->G:N->H
//puis on a un choix : "A et B" ou "BA"
Menu("","A et B",1,"BA",2
//je ferme pas la parenthèse du menu, ça économise un octet ^^

Lbl 1
//on demande les coordonnées du point A
Disp"COORD. A:"
Prompt X,Y,Z
X->I:Y->J:Z->K
//puis les coordonnées du point B
Disp"COORD. B:"
Prompt X,Y,Z
//vient la phase de calcul
F+((J-Y)E-(K-Z)D)->P
G+((K-Z)C-(I-X)E)->Q
H+((I-X)D-(J-Y)C)->R
//on a maintenant le moment en B
Goto 3
//le goto sert en quelque sorte de téléporteur,
//il envoi vers un autre endroit du programme (Lbl 3)

Lbl 2
//on demande les coordonnées du vecteur BA
Disp"COORD. BA:"
Prompt X,Y,Z
//phase de calcul, encore !
F+(YE-ZD)->P
G+(ZC-XE)->Q
H+(XD-YC)->R

//notre Lbl 3 arrive
Lbl 3
CLrHome
Output(1,1,C
Output(2,1,D
Output(3,1,E
Output(1,8,P
Output(2,8,Q
Output(3,8,R
//6 parenthèses d'économisé, ça fait 6 octet !
Pause
Stop

ClrHome
Normal
Disp"AX²+BX+C=0"
Prompt A,B,C
ClrHome
If A=0:Then
Output(3,3,"CE N EST PAS"
Output(5,3,"DU 2ND DEGRE"
Pause
Goto C
End
B²-4AC->D
Output(1,1,"DELTA="
Output(1,9,D
If D>0
Then
Output(2,1,"2 SOLUTIONS"
(-B+√D)/2A->F
(-B-√D)/2A->G
Output(4,1,"S1=("
Output(4,5,B
Output(4,8,"+√"
Output(4,9,D
Output(4,12,")/"
Output(4,14,2A
Output(6,1,"S2=("
Output(6,5,-B
Output(6,8,"-√"
Output(6,10,D
Output(6,12,")/"
Output(6,14,2A
Output(8,1,"SOIT..."
Pause
ClrHome
Disp "S1=",F►Frac,"S2=",G►Frac
Pause
End
If D<0:Then
Menu("ENSEMBLE","REELS",A,"COMPLEXES",B
Lbl A
Output(2,1,"AUCUNE SOLUTION"
Goto E
Lbl B
Output(2,1,"2 SOLUTIONS"
Output(4,1,"S1="
Output(4,5,-B
Output(4,8,"+√"
Output(4,11,-D
Output(4,13,")/"
Output(4,15,2A
Output(6,1,"S2="
Output(6,5,-B
Output(6,8,"-√"
Output(6,11,-D
Output(6,13,")/"
Output(6,15,2A
Pause
Goto C
End
If D=0
Then
Output(2,1,"1 SOLUTION"
(-B/(2A))->E
Output(4,1,"S="
Output(4,3,-B
Output(4,6,"/"
Output(4,7,2A
Output(6,1,"SOIT..."
Pause
ClrHome
Disp "S=",E►Frac
End
Lbl E
Pause
CLrHome
Menu("GRAPHIQUE","NON",C,"OUI",D
Lbl D
StoreGDB GDB5
"AX²+BX+C"->Y1
ZStandard
DispGraph
Text(0,0,"SOMMET:"
Text(6,0,"X = ",-(B/2A)
Text(12,0,"Y = ",Y1(-(B/2A))
Pause
RecallGDB GDB5
Lbl C
ClrHome

ClrHome
Eng
Input "R1 (OHM) = ",A
Input "R2 (OHM) = ",B
Menu("RESISTANCES","EN SERIE",S,"EN PARALLELE",P
Lbl S
A+B->R
Goto A
Lbl P
(AB)/(A+B)->R
Lbl A
Output(4,2,"RESISTANCE EQ"
Output(5,3,R
Pause
ClrHome

Lbl 0
Fix 5
Eng
ClrHome
Output(3,1," CONVERTISSEUR "
Output(5,3,"COMPLEXE 1.0"
Pause
Lbl A
Menu("CONVERSION","CAR-POL",C,"POL-CAR",P
Lbl C
ClrHome
Disp "Z=A+JB"
Prompt A,B
√(A²+B²)->P
If A=0
Then
If B>0
90->θ(c'est thêta ALPHA+3)
If B<0
-90->θ
Goto B
End
ArcTan(ou tan-1) (B/A)->θ
If A>0
Goto B
If B>0
180+θ->θ
If B<0
180+θ->θ
Lbl B
ClrHome
Output(3,3,"P="
Output(3,5,P
Output(5,3,"θ="
Output(5,5,θ
Pause
Stop

Lbl P
ClrHome
Disp "Z=(P,θ)
Prompt P,θ
Pcos θ->A
Psin θ->B
ClrHome
Output(3,3,"Z="
Output(4,4,A
If B≥0:Then
Output(5,4,"+"
Output(5,5,B
End
If B<0:Then
Output(5,4,B
Output(5,4,"-"
End
Output(6,5,"J"
Pause
Stop

Input "NBRE :",A
Input "BASE :",B
Lbl 1
int (A/B)->Q
A-B*Q->R
Disp R
Pause
Q->A
If Q=0
then
Stop
Else
Goto 1