index_20.html

Reversion

$Rev4[a_] := {a[[1]], {a[[2, 1]], a[[2, 2]], a[[2, 3]], a[[2, 4]]}, {-a[[3, 1]], -a[[3, 2]], ... , -a[[3, 4]], -a[[3, 5]], -a[[3, 6]]}, {-a[[4, 1]], -a[[4, 2]], -a[[4, 3]], -a[[4, 4]]}, a[[5]]}$

Created by Mathematica (April 17, 2005)