Play with this polytope as a twisty puzzle
This page is part of the Atlas of Small Regular Polytopess0 := ( 2, 3)( 5,49)( 6,51)( 7,50)( 8,52)( 9,45)(10,47)(11,46)(12,48)(13,41)(14,43)(15,42)(16,44)(17,37)(18,39)(19,38)(20,40)(21,33)(22,35)(23,34)(24,36)(25,29)(26,31)(27,30)(28,32);; s1 := ( 1, 5)( 2, 6)( 3, 8)( 4, 7)( 9,49)(10,50)(11,52)(12,51)(13,45)(14,46)(15,48)(16,47)(17,41)(18,42)(19,44)(20,43)(21,37)(22,38)(23,40)(24,39)(25,33)(26,34)(27,36)(28,35)(31,32);; s2 := ( 1, 4)( 5, 8)( 9,12)(13,16)(17,20)(21,24)(25,28)(29,32)(33,36)(37,40)(41,44)(45,48)(49,52);; poly := Group([s0,s1,s2]);;Finitely Presented Group Representation (GAP) :
F := FreeGroup("s0","s1","s2");;
s0 := F.1;; s1 := F.2;; s2 := F.3;;
rels := [ s0*s0, s1*s1, s2*s2, s0*s2*s0*s2, s0*s1*s0*s1*s2*s1*s0*s1*s0*s1*s2*s1,
s1*s2*s1*s2*s1*s2*s1*s2*s1*s2*s1*s2,
s2*s0*s1*s2*s1*s2*s0*s1*s2*s1*s2*s0*s1*s2*s1*s2*s0*s1*s2*s1,
s0*s1*s0*s2*s1*s0*s2*s1*s0*s2*s1*s0*s2*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1 ];;
poly := F / rels;;
Permutation Representation (Magma) : s0 := Sym(52)!( 2, 3)( 5,49)( 6,51)( 7,50)( 8,52)( 9,45)(10,47)(11,46)(12,48)(13,41)(14,43)(15,42)(16,44)(17,37)(18,39)(19,38)(20,40)(21,33)(22,35)(23,34)(24,36)(25,29)(26,31)(27,30)(28,32); s1 := Sym(52)!( 1, 5)( 2, 6)( 3, 8)( 4, 7)( 9,49)(10,50)(11,52)(12,51)(13,45)(14,46)(15,48)(16,47)(17,41)(18,42)(19,44)(20,43)(21,37)(22,38)(23,40)(24,39)(25,33)(26,34)(27,36)(28,35)(31,32); s2 := Sym(52)!( 1, 4)( 5, 8)( 9,12)(13,16)(17,20)(21,24)(25,28)(29,32)(33,36)(37,40)(41,44)(45,48)(49,52); poly := sub<Sym(52)|s0,s1,s2>;Finitely Presented Group Representation (Magma) :
poly<s0,s1,s2> := Group< s0,s1,s2 | s0*s0, s1*s1, s2*s2, s0*s2*s0*s2, s0*s1*s0*s1*s2*s1*s0*s1*s0*s1*s2*s1, s1*s2*s1*s2*s1*s2*s1*s2*s1*s2*s1*s2, s2*s0*s1*s2*s1*s2*s0*s1*s2*s1*s2*s0*s1*s2*s1*s2*s0*s1*s2*s1, s0*s1*s0*s2*s1*s0*s2*s1*s0*s2*s1*s0*s2*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1 >;References : None.