Programme TRINOME
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
"- Fonction TRINOME -" Lbl A " " "A : "?->A:" " "B : "?->B:" " "C : "?->C:" " Lbl B " ":"DELTA :" B*B-4AC->D Disp Lbl C DGoto 0 D=0=>Goto 1 D>0=>Goto 2 Lbl 0:" ":"Pas de solutions.":Goto 3 Lbl 1:" ":"1Solution double :" -B/2A->E:E->F Disp Goto 3 Lbl2:" ":"2Solutions :" (-B+µD)/2A->E Disp (-B-µD)/2A->F Disp Goto 3 Lbl 3 "-":"Sommet S(X,Y):" -B/(2A)->G Disp -D/(4A)->H Disp ' a(x-G)(x-G)+H Range -10,10,1,-10,10,1 Graph Y=AXX+BX+C Disp "Ok" |
Programme Fonction
1 2 3 4 |
Lbl 1 "X:"?->X Prog "EQU" Disp Goto 1 |
Programme DICHOTOMIE
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Z=1234567890=>Goto A 1234567890->Z " -- DICHOTOMIE --" "Fonction dans EQU" "A:"?->G "B:"?->H GGoto 8 G->I:H->G:I->H Lbl 8 G->X:Prog "EQU":Ans->J H->X:Prog "EQU":Ans->K JK>=0Goto B "Precision "?->P Abs P->P P=0=>1E-16->P Lbl 1 (G+H)/2->I G->X:Prog "EQU":Ans->J I->X:Prog "EQU": Ans->L JLGoto 2 I->G:Goto 3 Lbl 2:I->H Lbl 3:H-G>P=>Goto 1 Lbl A G->A:G Disp H->B:H Disp Goto Z Lbl B "Pas de Solutions"Disp Goto Z Lbl Z 0->Z "Ok" |
Programme Tangente
1 2 3 4 5 6 7 8 9 10 |
" --- TANGENTE ----" " " " " "Tangent en "?->F F->X:2->A:Prog H Prog "EQU" Ans->I H Disp I-(H*F) Disp "Ok" |
Programme FRACTION
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
"FRACTION" " Par Remi P?" Disp " " "Rationnel"?->A A->B Int A->C 1->D 1->E 0->F Abs (A/1E08)->G Lbl 1 G>Abs (A-C/D)=>Goto 9 1/(B-Int B)=>B C->H (Int B)*C+E->C H->E D->H (Int B)*D+F->D H->F Goto 1 Lbl 9 C (fraction) D Disp "Ok" |
Programme GAUSS (Z)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
' ---- MODE WRT/MATRIX --- GAUSS "PIVOT DE GAUSS" " PAR REMI P." " " "NOMBRE D'INCONNNUE"?->A " " Mat A Disp 1->B:Lbl 1 B+1->C:Lbl 2 *Row+ (-Mat A[C,B]/Mat A[B,B],A,B,C C+1->C A>=C=>Goto 2 Mat A Disp B+1->B:A>B=>Goto 1 A->B Lbl 3 B-1->C:Lbl 4 *Row+ Mat (Mat A[C,B]/Mat A[B,B]),A,B,C C-1->C:C>0=>Goto 4 B-1->B:B>1=>Goto 3 A->B:Lbl 5 *Row 1/Mat A[B,B],A,B Dsz B:Goto 5 Mat A Disp "OK" |
© Copyright 1995 – Rémi Peyronnet