|
Y:=
[[1,2,5], [2,5,8], [2,3,8], [3,8,9], [1,3,9], [1,4,9],
[4,5,8], [4,6,8], [6,8,9], [6,7,9], [4,7,9], [4,5,7],
[1,4,6], [1,2,6], [2,6,7], [2,3,7], [3,5,7], [1,3,5]];;
Y:=SimplicialComplex(Y);;
W:=[[1,2,5],[2,5,8],[4,5,8],[4,6,8],[1,4,6],[1,2,6]];;
W:=SimplicialComplex(W);;
i:=RegularCWMap(Y,W);
f:=FundamentalGroup(i);
Print(f,"\n");
Print(Source(f),"\n");
Print(RelatorsOfFpGroup(Range(f)),"\n");
[ Dauer der Verarbeitung: 0.14 Sekunden
(vorverarbeitet)
]
|
