%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:587
File Name:LINPROG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"LINEAR PROGRAMMING"
"INITIAL TABLEAU IN   \Mat A"
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat F
\Do
0\->P
\Trn \Mat F\->\Mat T
\For 1\->K \To C-1
\Mat F[R,K]<0\=>2\->P
\Next 
\For 1\->K \To R-1
\Mat F[K,C]<0\=>1\->P
\Next 
\If P=1
\Then \Mat->List\Mat F,C)\->\List 6
0\->\List 6[R]
\Min(\List 6)\->M
\For 1\->K \To R-1
M=\List 6[K]\=>K\->I
\Next 
\Mat->List\Mat T,I)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\If M<0
\Then \For 1\->K \To C-1
M=\List 6[K]\=>K\->J
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P=2
\Then \Mat->List\Mat T,R)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\For 1\->K \To C-1
M=\List 6[K]\=>K\->J
\Next 
\Mat->List\Mat F,J)\->\List 6
0\->\List 6[R]
\For 1\->K \To R-1
\List 6[K]>0\=>\List 6[K]/\Mat F[K,C]\->\List 6[K]
\List 6[K]\<=0\=>0\->\List 6[K]
\Next 
\Max(\List 6)\->M
\If M>0
\Then \For 1\->K \To R-1
M=\List 6[K]\=>K\->I
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P\<>0
\Then \*Row((1\ab/c(\Mat F[I,J])),F,I
\For 1\->K \To R
K\<>I\=>\*Row+((\(-)\Mat F[K,J]),F,I,K
\Next 
\IfEnd
\LpWhile P\<>0
\Mat F
%End