Quelle  3.11.6   Sprache: unbekannt

G:=SpaceGroup(3,32);;
gens:=GeneratorsOfGroup(G);;
B:=CrystGFullBasis(G);;
R:=CrystGcomplex(gens,B,0);;
Print(IsRigid(R),"\n");;
D:=TensorWithBurnsideRing(R);;
Print(Homology(D,1),"\n");

[ Dauer der Verarbeitung: 0.18 Sekunden  (vorverarbeitet)  ]