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