local i, result; i := E(4); result := rec(); result.comment := "U33 as 28 x 28 matrices\n\ "; result.symmetricforms := [ ]; result.antisymmetricforms := [ ]; result.hermitianforms := [ ]; result.centralizeralgebra := [ ]; result.generators := [ [[1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [-i,-1,-1,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [i,0,0,-1,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0], [-1,0,0,-1,-1-i,-1,-1-i,0,-1,-1,0,0,-1,0,-1,0,-1-i,-1,0,0,-1,0,0,-1-i,-1,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0], [i,-1+i,1,1+2*i,1+2*i,1+i,-1,i,0,0,-2+2*i,1-i,-1,-1+i,1+i,0,-1+i,-1+2*i,i,1+2*i,1+i,0,-1-i,-1,i,-1+i,2+i,1], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0], [i,0,0,0,0,0,0,i,0,0,i,0,0,0,0,0,0,i,0,0,0,0,0,0,i,-1,0,0], [2,-1,1-i,1+2*i,1+2*i,1+i,-1,1,1,0,-1+i,1-i,0,-1,1+i,0,i,i,0,1+2*i,1+i,0,-i,0,1,-1+i,1+i,1], [0,0,0,0,0,0,0,-i,0,0,-i,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1]] , [[0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,-1,i,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0], [-1,0,0,-i,0,-i,0,-1,0,0,0,0,0,0,0,0,0,0,0,-i,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0], [-1,i,i,0,0,0,0,0,-1,0,0,i,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0], [-1+2*i,-1+i,1-i,i,1+2*i,i,-2,-1+i,-1,0,-2+i,1-2*i,-1,-1+i,1+i,-i,-1+i,-2+2*i,i,i,i,0,-2-i,-2,-1+i,-2,2+i,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1], [i,i,-i,1,2,1,-1+i,i,0,0,-1+2*i,-2*i,-1,i,1,0,0,2*i,i,1,1,i,-2,-1+i,i,-1+i,2,0], [-i,-i,i,-1,-2-i,-1,1-i,-i,0,-1,1-2*i,2*i,1,-i,-1,i,-i,-2*i,-i,-1,-1,0,2,1-i,-i,1-i,-2,0], [0,-1,1,i,i,0,-i,0,0,0,-1,1,-i,-1,0,0,0,-1,0,i,0,0,-i,-i,0,-1,i,0], [1,-i,0,-1,-1,0,1,1,1,0,1-i,i,1,-i,0,0,0,1-i,0,-1,0,0,1,1,1,0,-1,0], [1,-i,-i,0,0,0,0,0,1,0,0,0,1,0,0,i,0,1,0,0,0,i,0,0,1,0,0,0], [-i,-i,i,-1,-2,-1,1-i,-i,0,0,1-2*i,2*i,1,-i,-1,0,0,-2*i,-i,-1,-1,-i,2,1,-i,1-i,-2,0]]]; return result;