Hey everyone,

I have a problem and it would be very urgent to solve it. I would be very thankful if you could help me. I made three codings for three programs but with one main reason, pivoting and solve maximizing problems with the simplex method. These are the three programs and when I enter a matrix (A) to my TI 83 Plus and then run the any of these programs it says syntax error. Do anyone of you know what is the problem with my coding?

Thanks for the help in advance.

David

Pivot program:

Ans→[E]

Input "PIVOT ROW =",R

Input "PIVOT COL =",C

dim([E])→L₆

L₆(1)→M

L₆(2)→N

prgmPIVOT1

[E]Frac

Pivot1 Program

If (R>M) or (C>N)

Then

Disp "PIVOT ELEMENT"," OUTSIDE MATRIX"

Pause

Goto F

End

If [E](R,C)=0

Then

Disp "CANNOT PIVOT ON"," A ZERO"

Pause

Goto F

End

*row(([E](R,C)),[E],R)→[E]

For(I,1,M)

If (I≠R) and ([E](I,C)≠0)

*row+(–[E](I,C),[E],R,I)→[E]

End

For(I,1,M)

For(J,1,N)

If abs([E](I,J))≤–12

0→[E](I,J)

End

End

Lbl F

Simplex Program

Ans→[E]

dim([E])→L₆

L₆(1)→M

L₆(2)→N

min(seq([E](M,I),I,1,N-2,1))→Z

If Z≥0

Goto D

Lbl A

–1→P

0→R

For(I,1,N-2)

If [E](M,I)=Z

Then

–1→T

For(J,1,M-1)

If ([E](J,I)>0) and ([E](J,N)≥0)

Then

[E](J,N)/[E](J,I)→Q

If (T=–1) or (Q<T)

Then

Q→T

J→L

End

End

End

If T>P

Then

I→C

L→R

T→P

End

End

End

If R=0

Then

Disp "UNBOUNDED"

Pause

Else

Disp "PIVOT ROW",R

Disp "PIVOT COL",C

Pause

prgmPIVOT1

min(seq([E](M,I),I,1,N-2,1))→Z

If Z≥0

Goto D

Pause [E]Frac

Goto A

End

Lbl D

Disp "FINAL TABLEAU"

[E]Frac