%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:213
File Name:ROWREDA
Group Name:
Password:97561356
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"ROW REDUCE MATRIX A"
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat R
1\->I
\For 1\->J \To C
\For 1\->N \To R-I
\Mat R[I,J]=0\=>\Swap(R,I,I+N
\Next 
\If \Mat R[I,J]\<>0
\Then \*Row(1\ab/c\Mat R[I,J],R,I
\For 1\->K \To R
K\<>I\=>\*Row+(\(-)\Mat R[K,J],R,I,K
\Next 
\Isz I
\IfEnd
\If I=R+1
\Then \Mat R[R,J]=1\=>\Break
\Dsz I
\IfEnd
\Next 
\Mat R
%End