Quelle  6.4.1   Sprache: unbekannt

#This example uses Polymake software.
T:=AlternatingGroup(4);;
C:=PolytopalComplex(T,[1,2,3,1]);;
Print(List([0..2],C!.dimension),"\n");
Print(StructureDescription(C!.stabilizer(0,1)),"\n");
Print(StructureDescription(C!.stabilizer(1,1)),"\n");
Print(StructureDescription(C!.stabilizer(1,2)),"\n");
Print(StructureDescription(C!.stabilizer(2,1)),"\n");
Print(StructureDescription(C!.stabilizer(2,2)),"\n");