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