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