The trivector imaginary pseudoscalar

i3 = Mul3[Mul3[ {0, {1, 0, 0}, {0, 0, 0}, 0},  {0, {0, 1, 0}, {0, 0, ... , 0, 1}, {0, 0, 0}, 0} ] ; (* the pseudoscalar and commuting trivector unit imaginary *)

i3//MatrixForm

( {{0}, {{0, 0, 0}}, {{0, 0, 0}}, {1}} )

Mul3[i3, i3]//MatrixForm

( {{-1}, {{0, 0, 0}}, {{0, 0, 0}}, {0}} )

Created by Mathematica  (April 17, 2005) Valid XHTML 1.1!