|
F:=FreeGroup(2);;x:=F.1;;y:=F.2;;
G:=F/[x*y^2*x];;Display(StarGraph(G));;
G:=F/[x*y^2*x*y^-1];;Display(StarGraph(G));;
G:=F/[x*y^2*x*y^-1*x];;Display(StarGraph(G));;
G:=F/[x*y^2*x*y^-1*x*x];;Display(StarGraph(G));;
G:=F/[x*y*x*y^-1*x^-1*y*x*y^-1];;Display(StarGraph(G));;
Print(IsAspherical(F,[x*y^2*x*y^-1*x*x]),"\n");
[ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
]
|
