Quelle  3.11.7   Sprache: unbekannt

G:=SpaceGroup(4,2);;
gens:=GeneratorsOfGroup(G);;
B:=CrystGFullBasis(G);;
R:=CrystGcomplex(gens,B,1);;
Print(IsRigid(R),"\n");
S:=CrystGcomplex(gens,B,0);;
Print(IsRigid(S),"\n");

[ Dauer der Verarbeitung: 0.22 Sekunden  (vorverarbeitet)  ]