ClrHome
Input "A?",A
{A,A->L1
dim(L1->dim(L2
For(B,1,dim(L1
B->L2(B
End
dim(L1->dim(L3
Fill(1,L3
LinReg(ax+b) L2,L1,L3,Y1
Equ>String(Y1,Str0
(Equ>String : chercher dans le catalogue  [2nd]+[0])
length(Str0->B
sub(Str0,4,length(Str0)-3->Str0
Disp Str0
FnOff 1
ClrList L1,L2,L3,LRESID

ClrHome
Input "A?",A //demande A
{A,A->L1 // stocke {A,A dans la liste 1
2->dim(L2 // crée une liste vide L2 avec 2 éléments (L2={0,0})
For(B,1,2 //début de la boucle
B->L2(B // stocke B dans la liste L2
End //fin de la boucle
2->dim(L3 // crée une liste vide L3
Fill(1,L3 // remplit L3 avec la valeur 1
LinReg(ax+b) L2,L1,L3,Y1 // régression linéaire, stocke le résultat dans Y1 (en fait ça va faire : Y1="0X+A"
Equ>String(Y1,Str0 // stocke Y1 dans Str0 (Str0="0X+A"
(Equ>String : chercher dans le catalogue  [2nd]+[0])
length(Str0->B // détermine la taille de Str0
sub(Str0,4,length(Str0)-3->Str0 // extrait A
Disp Str0 // affiche Str0
FnOff 1 // Désactive Y1
ClrList L1,L2,L3,LRESID // Efface toutes les listes créées

:Clrhome
:Prompt A
:{A,A->L1
:{1,2->L2
:{1,1->L3
:LinReg(ax+b) L2,L1,L3,Y1
:Equ>String(Y1,Str1
:Sub(Str1,4,lenght(Str1)-3->Str1
:Disp Str1