Play with this polytope as a twisty puzzle
This page is part of the Atlas of Small Regular Polytopess0 := ( 2, 3)( 6, 7)(10,11)(13,25)(14,27)(15,26)(16,28)(17,29)(18,31)(19,30)(20,32)(21,33)(22,35)(23,34)(24,36)(38,39)(42,43)(46,47)(49,61)(50,63)(51,62)(52,64)(53,65)(54,67)(55,66)(56,68)(57,69)(58,71)(59,70)(60,72);; s1 := ( 1,13)( 2,14)( 3,16)( 4,15)( 5,21)( 6,22)( 7,24)( 8,23)( 9,17)(10,18)(11,20)(12,19)(27,28)(29,33)(30,34)(31,36)(32,35)(37,49)(38,50)(39,52)(40,51)(41,57)(42,58)(43,60)(44,59)(45,53)(46,54)(47,56)(48,55)(63,64)(65,69)(66,70)(67,72)(68,71);; s2 := ( 1,44)( 2,43)( 3,42)( 4,41)( 5,40)( 6,39)( 7,38)( 8,37)( 9,48)(10,47)(11,46)(12,45)(13,56)(14,55)(15,54)(16,53)(17,52)(18,51)(19,50)(20,49)(21,60)(22,59)(23,58)(24,57)(25,68)(26,67)(27,66)(28,65)(29,64)(30,63)(31,62)(32,61)(33,72)(34,71)(35,70)(36,69);; 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*s0*s1*s0*s1*s0*s1*s0*s1,
s0*s1*s2*s0*s1*s2*s0*s1*s0*s1*s2*s0*s1*s2*s0*s1,
s2*s0*s1*s2*s1*s2*s0*s1*s2*s0*s1*s2*s1*s2*s0*s1,
s0*s1*s2*s1*s0*s1*s2*s1*s0*s1*s2*s1*s0*s1*s2*s1 ];;
poly := F / rels;;
Permutation Representation (Magma) : s0 := Sym(72)!( 2, 3)( 6, 7)(10,11)(13,25)(14,27)(15,26)(16,28)(17,29)(18,31)(19,30)(20,32)(21,33)(22,35)(23,34)(24,36)(38,39)(42,43)(46,47)(49,61)(50,63)(51,62)(52,64)(53,65)(54,67)(55,66)(56,68)(57,69)(58,71)(59,70)(60,72); s1 := Sym(72)!( 1,13)( 2,14)( 3,16)( 4,15)( 5,21)( 6,22)( 7,24)( 8,23)( 9,17)(10,18)(11,20)(12,19)(27,28)(29,33)(30,34)(31,36)(32,35)(37,49)(38,50)(39,52)(40,51)(41,57)(42,58)(43,60)(44,59)(45,53)(46,54)(47,56)(48,55)(63,64)(65,69)(66,70)(67,72)(68,71); s2 := Sym(72)!( 1,44)( 2,43)( 3,42)( 4,41)( 5,40)( 6,39)( 7,38)( 8,37)( 9,48)(10,47)(11,46)(12,45)(13,56)(14,55)(15,54)(16,53)(17,52)(18,51)(19,50)(20,49)(21,60)(22,59)(23,58)(24,57)(25,68)(26,67)(27,66)(28,65)(29,64)(30,63)(31,62)(32,61)(33,72)(34,71)(35,70)(36,69); poly := sub<Sym(72)|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*s0*s1*s0*s1*s0*s1*s0*s1, s0*s1*s2*s0*s1*s2*s0*s1*s0*s1*s2*s0*s1*s2*s0*s1, s2*s0*s1*s2*s1*s2*s0*s1*s2*s0*s1*s2*s1*s2*s0*s1, s0*s1*s2*s1*s0*s1*s2*s1*s0*s1*s2*s1*s0*s1*s2*s1 >;References : None.