Program: PIVOT for the TI-82 and 83 calculators.

Pause [A] ► Frac

Disp “PIVOT COLUMN=”

Input C

Disp “PIVOT ROW=”

Input R

*row(1/([A](R,C)),[A],R)↦[A]

*dim([A]) ↦ └ D

For(J,1,└D(1))

If J ≠ R

*row+(-1*[A](J,C),[A],R,J)↦[A]

End

Pause [A]►Frac

To use this program, enter the tableaux into matrix [A]

Notes:

Frac[A] is in matrix names.

►Frac is in the math menu.

*row is in matrix ops. ‘↦’ is the sto button

└ D is a list named D. ‘└’ is in the list ops menu.

└D(1) is the number of columns in [A].

*row+ is in matrix ops