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