\start83P\
\comment=Program file 10/30/09, 01:05
\protected=FALSE
\name=SIMPLEX5
\file=C:\MYPROGS\TI_NEW~1\SIMPLEX5.TXT
ClrHome
1\EE\\(-)\9\->\Q
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
1\EE\9\->\T
For(I,1,R-1)
If [B](I,S)<T:Then
[B](I,S)\->\T:I\->\V
End:End
If T\>=\0
Goto 10
V\->\I
For(J,1,S-1)
If [B](I,J)<0
Goto 33
End
Disp "NO FEASIBLE SET"
Pause [B]\>\Frac
Pause [B]
Stop
Lbl 33
0\->\Z
\(-)\1\->\D:R-1\->\M
For(I,1,M)
If [B](I,J)\>=\0:Goto 34
[B](I,S)/[B](I,J)\->\P
If (D<0 or P>D):Then
P\->\D:I\->\L:End:End:M\->\Z
Lbl 34
If Z<M:Then
V\->\L
End
*row(1/[B](L,J),[B],L)\->\[B]
For(K,1,R)
If K\!=\L:Then
[B](K,J)\->\F
For(P,1,S,1)
[B](K,P)-F*[B](L,P)\->\[B](K,P)
If abs([B](K,P))<Q*abs([B](L,P))
0\->\[B](K,P)
End
End:End
Pause [B]\>\Frac
Pause [B]
Goto 42
Lbl 10
Disp "STANDARD FORM":Pause 
Lbl 2
For(J,1,S-1)
If [B](R,J)<0
Goto 3
End
Goto 1
Lbl 3
\(-)\1\->\F
For(K,1,R-1)
If [B](K,J)>0
Then
[B](K,S)/[B](K,J)\->\E
If E<F or F<0
Then
E\->\F:K\->\W:End
End:End
If F<0:Then
Disp "UNBOUNDED MAX"
Pause [B]\>\Frac
Pause [B]
Stop:End
W\->\I
*row(1/[B](I,J),[B],I)\->\[B]
For(K,1,R)
If K\!=\I:Then
[B](K,J)\->\F
For(P,1,S,1)
[B](K,P)-F*[B](I,P)\->\[B](K,P)
If abs([B](K,P))<Q*abs([B](I,P))
0\->\[B](K,P)
End
End:End
Pause [B]\>\Frac
Pause [B]
Goto 2
Lbl 1
Disp "FINAL SIMPLEX"
Pause [B]\>\Frac
Pause [B]
Disp "MAX VALUE=",[B](R,S)
Disp "USING MATRX [B]"
Stop
\stop83P\