local w, result; result := rec(); w := E(3); result.comment := "3A7 as 15 x 15 matrices\n\ "; result.symmetricforms := [ ]; result.antisymmetricforms := [ ]; result.hermitianforms := [ [[2,0,0,0,0,1,-1,0,0,0,0,-1,0,0,0], [0,2,0,0,0,0,0,0,-1,1,w^2,-1,0,0,0], [0,0,2,1,0,0,0,0,0,0,1,0,-w,0,0], [0,0,1,2,0,0,-1,0,0,0,1,0,0,0,-1], [0,0,0,0,2,-w^2,0,0,0,0,0,0,0,0,0], [1,0,0,0,-w,2,-1,0,0,0,0,0,0,0,0], [-1,0,0,-1,0,-1,2,0,0,0,0,0,0,0,1], [0,0,0,0,0,0,0,2,0,-w^2,0,0,0,0,0], [0,-1,0,0,0,0,0,0,2,0,-w^2,0,0,0,0], [0,1,0,0,0,0,0,-w,0,2,0,-1,0,0,0], [0,w,1,1,0,0,0,0,-w,0,2,0,0,0,0], [-1,-1,0,0,0,0,0,0,0,-1,0,2,0,0,0], [0,0,-w^2,0,0,0,0,0,0,0,0,0,2,-w^2,0], [0,0,0,0,0,0,0,0,0,0,0,0,-w,2,0], [0,0,0,-1,0,0,1,0,0,0,0,0,0,0,2]]]; result.centralizeralgebra := [ ]; result.generators := [ [[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,0,0,1,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,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,1,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,1,0,0,0,0,0,0,0,0,0,0,0,0], [-w,-w,0,-1,0,0,w^2,0,0,0,1,-w,0,0,0], [-1,-1,0,-1,0,0,-1,0,0,0,0,-1,0,0,0], [0,0,0,0,1,0,0,0,0,0,0,0,0,0,0], [-w,-w,0,w^2,-w,-1,w^2,0,w^2,0,-w^2,-w,0,0,0], [w^2,-w,w,w^2,0,0,w^2,0,0,0,1,-w,w^2,w,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,0,0,1,0,0,0,0,0,0,0,0], [1,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,0,0,1,0,0,0,0], [-1,0,0,-1,0,0,-1,0,0,0,0,0,0,0,0], [0,0,0,0,0,0,0,0,0,0,0,0,0,1,0], [0,-1,0,-w^2,-1,-w^2,-w^2,0,0,0,w^2,0,0,0,0], [w^2,w^2,w,0,0,-w^2,0,0,0,0,-w,w^2,w^2,0,0], [0,0,0,0,w,1,1,0,0,0,0,0,0,0,0], [1,1,-1,-w,0,w^2,-w,0,0,0,-w^2,1,0,0,0], [w^2,w^2,0,w,0,0,0,0,0,0,-w,w^2,0,0,w], [0,-1,0,-w^2,0,0,0,0,0,1,w^2,0,0,0,-w^2], [w^2,1,0,w^2,0,0,w^2,1,0,w^2,-w^2,-w,0,0,0]]]; return result;