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