\START82\
\COMMENT=Modif 21/12/04 jcm
\NAME=SYSTEME
\FILE=D:\WINLINK\SAV_JC~2\SYSTEME.82P
: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
\STOP82\
