Quelle  3.5.3   Sprache: unbekannt

#The penultimate command calls Singular's Groebner basis functions.
e:=SpaceGroupBBNWZ(2,10);;
Q:=RelativeCentralQuotientSpaceGroup(e,4);;
n:=50;;Print(PoincareSeries(Q,n),"\n");;
p:=HilbertPoincareSeries(LHSSpectralSequenceLastSheet(Q));;
Print(p,"\n");;

[ Dauer der Verarbeitung: 0.17 Sekunden  (vorverarbeitet)  ]