Ti80.Online

Pour avoir plus de programmes, rendez-vous sur
http://www.ti80.online.fr
VERSION EXCLUSIVE.
ti80@citeweb.net


Adapté par Olivier Laîné
Programme DET Tapez d'abord ce sous-programme. FAITES attention de bien l'écrire.
:(L2(2)L3(3)-L2(3)L3(2))L1(1)-(L2(1)L3(3)-L2(3)L3(1))L1(2)+(L2(1)L3(2)-L2(2)L3(1))L1(3)



Programme SYST3 Tapez ensuite ce programme. -> touche STO

:DISP "AX+BY+CZ=D","EX+FY+GZ=H","IX+JY+KZ=L"
:INPUT "A?=",A
:INPUT "B?=",B
:INPUT "C?=",C
:INPUT "D?=",D
:INPUT "E?=",E
:INPUT "F?=",F
:INPUT "G?=",G
:INPUT "H?=",H
:INPUT "I?=",I
:INPUT "J?=",J
:INPUT "K?=",K
:INPUT "L?=",L
:A->L1(1)
:B->L2(1)
:C->L3(1)
:D->L4(1)
:E->L1(2)
:F->L2(2)
:G->L3(2)
:H->L4(2)
:I->L1(3)
:J->L2(3)
:K->L3(3)
:L->L4(3)
:PRGM_DET:ANS->D (NB : PRGM_DET s'obtient en faisant PRGM, Flèche Gauche et en choississant DET ; ANS c'est 2nd puis (-), la touche entre POINT et ENTER. -> c'est STO --- N'oubliez pas les deux points entre PRGM_DET et ANS, c'est important.)
:IF ROUND(D,9)=0
:THEN:DISP "SYSTEME","SINGULIER","NON RESOLUBLE"
:ELSE
:L1->L5:L4->L1
:PRGM_DET:ANS->X
:L5->L1:L2->L5:L4->L2
:PRGM_DET:ANS->Y
:L5->L2:L3->L5:L4->L3
:PRGM_DET:ANS->Z
:L5->L3:{X,Y,Z}/D->L5 (Attention, ce sont des accolades)
:CLRHOME
:DISP "SOLUTIONS",L5(1)>FRAC,L5(2)>FRAC,L5(3)>FRAC



Sans bogue connu, mis à part que certaines équations ne sont pas résolubles. Dans ce cas, la machine vous le dit...