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