\start83\
\comment=Program file dated 08/31/97, 12:50
\name=SMPLX
\file=C:\WINLINK\SMPLX.TXT
Lbl Z
ClrHome
Menu("*SELECT MATRIX*","[A]",A,"[B]",B,"[C]",C,"[D]",D,"[E]",E,"",Z,"QUIT PROGRAM",Q)
Lbl A
[A]\->\[E]
Goto E
Lbl B
[B]\->\[E]
Goto E
Lbl C
[C]\->\[E]
Goto E
Lbl D
[D]\->\[E]
Lbl E
Disp "ENTER TO CONT":Pause [E]\>\Frac
Lbl O
Menu("**OPERATIONS***","PIVOT",S,"",O,"",O,"",O,"",O,"",O,"QUIT PROGRAM",Q)
Lbl S
Disp "ENTER ROW"
Disp "AND COLUMN":
Prompt R,C
Disp R,C
[E](R,C)\->\M
*row((M\^-1\),[E],R)\->\[E]
dim([E]\->\L\6\
For(K,1,L\6\(1))
If (K\!=\R)
Then
\(-)\[E](K,C)\->\M
*row+(M,[E],R,K)\->\[E]
End
End
For(K,1,L\6\(1))
For(L,1,L\6\(2))
If abs([E](K,L))<10^(\(-)\10)
Then
0\->\[E](K,L)
End
End
End
[E]\>\Frac
Goto E
Lbl Q
Disp "RESULT IS IN [E]"
Stop

\stop83\