\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=SYSTEME
\file=SYSTEME.TXT
ClrHome
Disp "SYSTEMES"
Input "NB EQUAT(->30)=",N
{N,N}\->\dim([A]
dim([A]\->\dim([C]
{N,1}\->\dim([B]
For(I,1,N)
ClrHome
Fix 0
Disp "  COEF. LIGNE"
Output(1,1,N+1)
Output(1,15,I)
For(J,1,N)
Input X
X\->\[A](I,J)
X\->\[C](I,J)
End
Input X
X\->\[B](I,1)
X\->\[C](I,1)
End
ClrHome
Input "NB DECIMALES :",D
Fix D
ClrHome
If abs(det([A]))>0
Then
Disp [A]\^-1\[B]
If N<3
Disp "OU -----"
If N>3
Pause 
Disp [A]\^-1\[B]\>\Frac
Else
If abs(det([C]))>0
Then
Disp "SYST IMPOSSIBLE"
Else
Disp "SYST INDETERMINE"
End
Float

\stop83\

