Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/hap/tst/examples/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 19.6.2025 mit Größe 568 B image not shown  

Quellcode-Bibliothek 2.6.1   Sprache: unbekannt

 
#This example uses Polymake.
gens:=
   [ [ [-1,0,0,0], [0,-1,0,0], [0,0,1,1/2], [0,0,0,1] ],
   [ [0,-1,0,0], [1,-1,0,0], [0,0,1,1/3], [0,0,0,1] ],
   [ [1,0,0,1], [0,1,0,0], [0,0,1,0], [0,0,0,1] ] ];;
G:=AffineCrystGroupOnLeft(gens);;
G:=StandardAffineCrystGroup(G);;
Y:=EquivariantEuclideanSpace(G,[0,0,0]);
Print(Y!.dimension(0),"\n");
Print(Y!.dimension(1),"\n");
Print(Y!.dimension(2),"\n");
Print(Y!.dimension(3),"\n");
C:=ChainComplexOfQuotient(Y);
Print(Homology(C,0),"\n");;
Print(Homology(C,1),"\n");;
Print(Homology(C,2),"\n");;
Print(Homology(C,3),"\n");;

[ 0.10Quellennavigators  Projekt   ]