Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/fining/examples/gap/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 27.6.2023 mit Größe 334 B image not shown  

Quelle  examples_e6.g   Sprache: unbekannt

 
# Philippe's awesome E6 example
L := SimpleLieAlgebra("E",6,Rationals);
rs := RootSystem(L);
w := WeylGroup(rs);
gens := GeneratorsOfGroup(w);;
pabs := List(gens, g -> Group(Difference(gens, [g])));
g := Group(gens);
cg := CosetGeometry(g,pabs);;
diag := DiagramOfGeometry( cg );;
DrawDiagram(diag, "E6");
#Exec("open E6.ps");
quit;

[ Dauer der Verarbeitung: 0.15 Sekunden  (vorverarbeitet)  ]