Play with this polytope as a twisty puzzle
This page is part of the Atlas of Small Regular Polytopess0 := ( 4, 7)( 5, 8)( 6, 9)( 10, 37)( 11, 38)( 12, 39)( 13, 43)( 14, 44)( 15, 45)( 16, 40)( 17, 41)( 18, 42)( 19, 28)( 20, 29)( 21, 30)( 22, 34)( 23, 35)( 24, 36)( 25, 31)( 26, 32)( 27, 33)( 49, 52)( 50, 53)( 51, 54)( 55, 82)( 56, 83)( 57, 84)( 58, 88)( 59, 89)( 60, 90)( 61, 85)( 62, 86)( 63, 87)( 64, 73)( 65, 74)( 66, 75)( 67, 79)( 68, 80)( 69, 81)( 70, 76)( 71, 77)( 72, 78)( 94, 97)( 95, 98)( 96, 99)(100,127)(101,128)(102,129)(103,133)(104,134)(105,135)(106,130)(107,131)(108,132)(109,118)(110,119)(111,120)(112,124)(113,125)(114,126)(115,121)(116,122)(117,123);; s1 := ( 1, 10)( 2, 12)( 3, 11)( 4, 15)( 5, 14)( 6, 13)( 7, 17)( 8, 16)( 9, 18)( 19, 37)( 20, 39)( 21, 38)( 22, 42)( 23, 41)( 24, 40)( 25, 44)( 26, 43)( 27, 45)( 29, 30)( 31, 33)( 34, 35)( 46,106)( 47,108)( 48,107)( 49,102)( 50,101)( 51,100)( 52,104)( 53,103)( 54,105)( 55, 97)( 56, 99)( 57, 98)( 58, 93)( 59, 92)( 60, 91)( 61, 95)( 62, 94)( 63, 96)( 64,133)( 65,135)( 66,134)( 67,129)( 68,128)( 69,127)( 70,131)( 71,130)( 72,132)( 73,124)( 74,126)( 75,125)( 76,120)( 77,119)( 78,118)( 79,122)( 80,121)( 81,123)( 82,115)( 83,117)( 84,116)( 85,111)( 86,110)( 87,109)( 88,113)( 89,112)( 90,114);; s2 := ( 1, 46)( 2, 48)( 3, 47)( 4, 52)( 5, 54)( 6, 53)( 7, 49)( 8, 51)( 9, 50)( 10, 55)( 11, 57)( 12, 56)( 13, 61)( 14, 63)( 15, 62)( 16, 58)( 17, 60)( 18, 59)( 19, 64)( 20, 66)( 21, 65)( 22, 70)( 23, 72)( 24, 71)( 25, 67)( 26, 69)( 27, 68)( 28, 73)( 29, 75)( 30, 74)( 31, 79)( 32, 81)( 33, 80)( 34, 76)( 35, 78)( 36, 77)( 37, 82)( 38, 84)( 39, 83)( 40, 88)( 41, 90)( 42, 89)( 43, 85)( 44, 87)( 45, 86)( 91, 92)( 94, 98)( 95, 97)( 96, 99)(100,101)(103,107)(104,106)(105,108)(109,110)(112,116)(113,115)(114,117)(118,119)(121,125)(122,124)(123,126)(127,128)(130,134)(131,133)(132,135);; 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*s2*s1*s2*s0*s1*s0*s1*s2*s0*s1*s2*s1*s0*s1,
s0*s1*s2*s1*s2*s0*s1*s2*s1*s0*s1*s2*s1*s2*s0*s1*s2*s1,
s0*s1*s0*s1*s2*s1*s2*s1*s2*s1*s0*s1*s0*s1*s2*s1*s2*s1*s2*s1,
s0*s1*s0*s1*s0*s1*s0*s1*s2*s0*s1*s0*s1*s0*s1*s0*s1*s2*s0*s1*s0*s1*s0*s1*s2*s0*s1*s2*s0*s1*s0*s1*s0*s1*s2 ];;
poly := F / rels;;
Permutation Representation (Magma) : s0 := Sym(135)!( 4, 7)( 5, 8)( 6, 9)( 10, 37)( 11, 38)( 12, 39)( 13, 43)( 14, 44)( 15, 45)( 16, 40)( 17, 41)( 18, 42)( 19, 28)( 20, 29)( 21, 30)( 22, 34)( 23, 35)( 24, 36)( 25, 31)( 26, 32)( 27, 33)( 49, 52)( 50, 53)( 51, 54)( 55, 82)( 56, 83)( 57, 84)( 58, 88)( 59, 89)( 60, 90)( 61, 85)( 62, 86)( 63, 87)( 64, 73)( 65, 74)( 66, 75)( 67, 79)( 68, 80)( 69, 81)( 70, 76)( 71, 77)( 72, 78)( 94, 97)( 95, 98)( 96, 99)(100,127)(101,128)(102,129)(103,133)(104,134)(105,135)(106,130)(107,131)(108,132)(109,118)(110,119)(111,120)(112,124)(113,125)(114,126)(115,121)(116,122)(117,123); s1 := Sym(135)!( 1, 10)( 2, 12)( 3, 11)( 4, 15)( 5, 14)( 6, 13)( 7, 17)( 8, 16)( 9, 18)( 19, 37)( 20, 39)( 21, 38)( 22, 42)( 23, 41)( 24, 40)( 25, 44)( 26, 43)( 27, 45)( 29, 30)( 31, 33)( 34, 35)( 46,106)( 47,108)( 48,107)( 49,102)( 50,101)( 51,100)( 52,104)( 53,103)( 54,105)( 55, 97)( 56, 99)( 57, 98)( 58, 93)( 59, 92)( 60, 91)( 61, 95)( 62, 94)( 63, 96)( 64,133)( 65,135)( 66,134)( 67,129)( 68,128)( 69,127)( 70,131)( 71,130)( 72,132)( 73,124)( 74,126)( 75,125)( 76,120)( 77,119)( 78,118)( 79,122)( 80,121)( 81,123)( 82,115)( 83,117)( 84,116)( 85,111)( 86,110)( 87,109)( 88,113)( 89,112)( 90,114); s2 := Sym(135)!( 1, 46)( 2, 48)( 3, 47)( 4, 52)( 5, 54)( 6, 53)( 7, 49)( 8, 51)( 9, 50)( 10, 55)( 11, 57)( 12, 56)( 13, 61)( 14, 63)( 15, 62)( 16, 58)( 17, 60)( 18, 59)( 19, 64)( 20, 66)( 21, 65)( 22, 70)( 23, 72)( 24, 71)( 25, 67)( 26, 69)( 27, 68)( 28, 73)( 29, 75)( 30, 74)( 31, 79)( 32, 81)( 33, 80)( 34, 76)( 35, 78)( 36, 77)( 37, 82)( 38, 84)( 39, 83)( 40, 88)( 41, 90)( 42, 89)( 43, 85)( 44, 87)( 45, 86)( 91, 92)( 94, 98)( 95, 97)( 96, 99)(100,101)(103,107)(104,106)(105,108)(109,110)(112,116)(113,115)(114,117)(118,119)(121,125)(122,124)(123,126)(127,128)(130,134)(131,133)(132,135); poly := sub<Sym(135)|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*s2*s1*s2*s0*s1*s0*s1*s2*s0*s1*s2*s1*s0*s1, s0*s1*s2*s1*s2*s0*s1*s2*s1*s0*s1*s2*s1*s2*s0*s1*s2*s1, s0*s1*s0*s1*s2*s1*s2*s1*s2*s1*s0*s1*s0*s1*s2*s1*s2*s1*s2*s1, s0*s1*s0*s1*s0*s1*s0*s1*s2*s0*s1*s0*s1*s0*s1*s0*s1*s2*s0*s1*s0*s1*s0*s1*s2*s0*s1*s2*s0*s1*s0*s1*s0*s1*s2 >;References : None.