Aquí cito algunos BRECHA código para la generación F4 Mentira álgebra de matrices 27 x 27. Es posible obtener de ellos en la dimensión 26 pero entonces usted necesita para utilizar la función Sqrt(2), Sqrt(3). En la dimensión 27 es más agradable.
Matrices L1 L7..son matrices de 8x8 de la izquierda de la multiplicación por la unidad imaginaria octonions e1..e7. R1..R7 están a la derecha de multiplicaciones por la unidad de octonions. Si usted tiene problemas para obtener tales por favor hágamelo saber.
También he obtenido Mentira álgebra de E6 como matrices complejas 27x27 y la Mentira álgebra E7 como cuaterniones matrices de 28 x 28. Traté de obtener alguna buena manera E8 Mentira álgebra en forma 31*8 dim matrices pero no hubo suerte. Fue en 2008 cuando trabajaba en estas secuencias de comandos. He utilizado Freudenthal, Tetas, Vinberg papeles al hacer esto.
Saludos,
Marek
v18 := BlockMatrix([[1,1,-R1], [2,2,-L1], [3,3,L1+R1]], 4,4);
v28 := BlockMatrix([[1,1,-R2], [2,2,-L2], [3,3,L2+R2]], 4,4);
v38 := BlockMatrix([[1,1,-R3], [2,2,-L3], [3,3,L3+R3]], 4,4);
v48 := BlockMatrix([[1,1,-R4], [2,2,-L4], [3,3,L4+R4]], 4,4);
v58 := BlockMatrix([[1,1,-R5], [2,2,-L5], [3,3,L5+R5]], 4,4);
v68 := BlockMatrix([[1,1,-R6], [2,2,-L6], [3,3,L6+R6]], 4,4);
v78 := BlockMatrix([[1,1,-R7], [2,2,-L7], [3,3,L7+R7]], 4,4);
S:= DiagonalMat([1,-1,-1,-1,-1,-1,-1,-1]);
Construir ahora elíptica versión de F4. El nombre es de que exp(t*[[0,-1], [2,0]]) es elipse.
Realmente exp(t*[[0,-1], [2,0]]/Sqrt(2)) es una elipse.
p1 := [[0, -1, 1]];
p2 := [[-1, 1, 0]];
n := NullMat(8,8);
v:= n+p1;
vt := -2*TransposedMat(v);
Este a0, que realmente corresponde a la ad([[0,-1,0],[1,0,0],[0,0,0]]) derivación en h3O.
a0 := BlockMatrix([[1,2,S], [2,1,-S], [3,4, v], [4,3, vt]], 4,4);
w := n+p2;
wt := -2*TransposedMat(w);
b0 := BlockMatrix([[2,3,S], [3,2,-S], [1,4, w], [4,1, wt]], 4,4);
mats3 := [ v18, v28, v38, v48, v58,v68,v78, a0, b0];;
ms:=Lista(mats3, x->x{[1..27]}{[1..27]});
f4_e := LieAlgebra( Racionales, ms);