Quelle  3.3.3   Sprache: unbekannt

G:=SpaceGroup(4,122);;
R:=ResolutionBieberbachGroup(G);;
T:=TensorProduct(R,R,R);;
Print(Homology(TensorWithIntegers(T),4),"\n");

[ Dauer der Verarbeitung: 0.13 Sekunden  (vorverarbeitet)  ]