Quelle  3.2.1   Sprache: unbekannt

A:=[[0,-1,0,0,],[1,0,0,0,],[0,0,0,1],[0,0,-1,0]];;
B:=[[0,0,-1,0],[0,0,0,-1],[1,0,0,0],[0,1,0,0]];;
Q:=Group([A,B]);;
R:=PolytopalComplex(Q,[1,0,0,0]);;
Print(List([0..4],i->R!.dimension(i)),"\n");
A:=GroupHomomorphismByFunction(Q,Q,x->x);;
C:=HomToIntegralModule(R,A);;
Print(Cohomology(C,3),"\n");

[ Dauer der Verarbeitung: 0.20 Sekunden  (vorverarbeitet)  ]