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