Pivoting Program for the TI-83

To use the program you must enter your matrix under the name [A] (via pressing the MATRIX key and then selecting EDIT [A]). Also be sure nothing important is stored in [B] (as it will be lost). The program will allow you to pivot on any element in a matrix and see the result. You will also be able to divide any row by a number (in case you need to get an element's value to be one). This program should also run on a TI-82.

Below you will find the listing of the program, named Pivot. You should refer to your calculator's owner manual to see how to enter it into the calculator (or find someone who knows how to do it).

Notice - this program will NOT automatically simplify or do anything for you - you will have to tell it what elements to pivot on and how to simplify the rows - so don't expect much from it =).

When entering the below program understand that the minus arrow: -> is supposed to be just an arrow pointing right (the STO button).

PROGRAM:PIVOT
:[A]->[B]
:Lbl 10
:
:Pause [A]
:Disp "1 TO PIVOT"
:Disp "2 TO DIVIDE"
:Disp "3 TO UNDO ALL"
:Disp "4 TO EXIT"
:Input G
:
:If G=4
:Then
:Stop
:End
:
:If G=3
:Then
:[B]->[A]
:End
:
:If G=2					
:Then
:Input ("DIVIDE ROW ",R)
:Input ("BY ",X)
:*row(1/X,[A],R)->[A]
:End
:
:If G=1
:Then
:Input ("ROW ",R)
:Input ("COLUMN ",C)
:[A](R,C)->P
:dim [A]->L6
:L6(1)->N
:For(I,1,N,1)
:If IR
:Then
:If [A](I,C)0
:Then
:[A](I,C)->X
:*row(P,[A],I)->[A]
:*row+(-X,[A],R,I)->[A]
:If P<0
:Then
:*row(-1,[A],I)->[A]
:End
:End
:End
:
:End
:End
:
:Goto 10