|
F:=FreeGroup("a","b");;a:=F.1;;b:=F.2;;
G:=F/[a*b*a*(b*a*b)^-1];;a:=G.1;;b:=G.2;;
H:=Group([ a, b^-1*a^2*b^-1, b^-1*a^-2*b^-1 ]);;
Q:=CosetsQuandle(G,H,a);
Print(Q,"\n");
Display(MultiplicationTable(Q));
[ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
]
|
