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