\start83\
\comment=Program file 10/19/06, 00:50
\name=SIMPLEX2
\file=C:\MYPROGS\TI83PR~1\SIMPLEX2.TXT
ClrHome
Disp "INITIAL SIMPLEX"
Disp "MATRIX LOCATION"
Disp "USE MATRX"
Disp "TO SELECT"
Input [A]
[A]\->\[B]
dim([B]\->\L\1\
L\1\(1)\->\R
L\1\(2)\->\S
Lbl 42
seq([B](I,S),I,1,(R-1),1)\->\L\2\
min(L\2\)\->\T
If T\>=\0
Goto 10
1\->\I
Lbl 12
If [B](I,S)=T
Goto 13
I+1\->\I
Goto 12
Lbl 13
seq([B](I,J),J,1,(S-1),1)\->\L\2\
min(L\2\)\->\T
If T<0
Goto 31
Disp "NO FEASIBLE SET"
[B]\>\Frac:Stop
Lbl 31
1\->\J
Lbl 32
If [B](I,J)=T
Goto 33
J+1\->\J
Goto 32
Lbl 33
\(-)\1\->\C:\(-)\1\->\D:R-1\->\M
For(I,1,M)
If ([B](I,J)>0 and [B](I,S)\>=\0)
Then
[B](I,S)/[B](I,J)\->\P
If (C<0 or P<C):Then
P\->\C:I\->\K:End
Else:If ([B](I,J)<0 and [B](I,S)<0):Then
[B](I,S)/[B](I,J)\->\P
If (D<0 or P>D):Then
P\->\D:I\->\L:End:End:End:End
If C\>=\0:Then
K\->\L:End
*row(1/[B](L,J),[B],L)\->\[B]
For(K,1,L-1,1)
*row+(\(-)\[B](K,J),[B],L,K)\->\[B]
End
For(K,L+1,R,1)
*row+(\(-)\[B](K,J),[B],L,K)\->\[B]
End
Pause [B]\>\Frac
Pause [B]
Goto 42
Lbl 10
Disp "STANDARD FORM":Pause 
seq([B](R,I),I,1,(S-1),1)\->\L\2\
min(L\2\)\->\T
If T\>=\0
Goto 1
Lbl X
1\->\J
Lbl 2
If [B](R,J)=T
Goto 3
J+1\->\J
Goto 2
Lbl 3
1\->\K
Lbl 6
If [B](K,J)\<=\0
Goto 4
[[[B](K,S)/[B](K,J)]]\->\[E]
K+1\->\K
Lbl 7
If [B](K,J)\<=\0
Goto 5
augment([E],[[[B](K,S)/[B](K,J)]])\->\[E]
K+1\->\K
Goto 7
Lbl 8
dim([E]\->\L\3\
seq([E](1,I),I,1,L\3\(2),1)\->\L\4\
min(L\4\)\->\M
1\->\I
Lbl U
If [B](I,J)=0
Goto Y
If [B](I,S)/[B](I,J)=M
Goto V
I+1\->\I
Goto U
Lbl V
If I=1
Goto W
*row(1/[B](I,J),[B],I)\->\[B]
For(K,1,I-1,1)
*row+(\(-)\[B](K,J),[B],I,K)\->\[B]
End
For(K,I+1,R,1)
*row+(\(-)\[B](K,J),[B],I,K)\->\[B]
End
seq([B](R,I),I,1,(S-1),1)\->\L\2\
min(L\2\)\->\T
If T\>=\0
Goto 1
Pause [B]\>\Frac
Pause [B]
Goto X
Lbl W
:*row([B](I,J)\^-1\,[B],1)\->\[B]
For(K,2,R,1)
*row+(\(-)\[B](K,J),[B],I,K)\->\[B]
End
seq([B](R,I),I,1,(S-1),1)\->\L\2\
min(L\2\)\->\T
If T\>=\0
Goto 1
Pause [B]\>\Frac
Pause [B]
Goto X
Lbl 4
K+1\->\K
If K>(R-1)
Goto 9
Goto 6
Lbl 5
K+1\->\K
If K>(R-1)
Goto 8
Goto 7
Lbl 1
Disp "FINAL SIMPLEX"
Pause [B]\>\Frac
Pause [B]
Disp "MAX VALUE=",[B](R,S)
Disp "USING MATRX [B]"
Stop
Lbl 9
Disp "UNBOUNDED"
Disp "MAXIMUM"
Stop
Lbl Y
I+1\->\I
Goto U

\stop83\