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