Polytope of Type {98,2,2,2}

This page is part of the Atlas of Small Regular Polytopes
Atlas Canonical Name : {98,2,2,2}*1568
if this polytope has a name.
Group : SmallGroup(1568,342)
Rank : 5
Schlafli Type : {98,2,2,2}
Number of vertices, edges, etc : 98, 98, 2, 2, 2
Order of s0s1s2s3s4 : 98
Order of s0s1s2s3s4s3s2s1 : 2
Special Properties :
   Degenerate
   Universal
   Orientable
   Flat
Related Polytopes :
   Facet
   Vertex Figure
   Dual
Facet Of :
   None in this Atlas
Vertex Figure Of :
   None in this Atlas
Quotients (Maximal Quotients in Boldface) :
   2-fold quotients : {49,2,2,2}*784
   7-fold quotients : {14,2,2,2}*224
   14-fold quotients : {7,2,2,2}*112
   49-fold quotients : {2,2,2,2}*32
Covers (Minimal Covers in Boldface) :
   None in this atlas.
Permutation Representation (GAP) :
s0 := ( 2, 7)( 3, 6)( 4, 5)( 8,44)( 9,43)(10,49)(11,48)(12,47)(13,46)(14,45)
(15,37)(16,36)(17,42)(18,41)(19,40)(20,39)(21,38)(22,30)(23,29)(24,35)(25,34)
(26,33)(27,32)(28,31)(51,56)(52,55)(53,54)(57,93)(58,92)(59,98)(60,97)(61,96)
(62,95)(63,94)(64,86)(65,85)(66,91)(67,90)(68,89)(69,88)(70,87)(71,79)(72,78)
(73,84)(74,83)(75,82)(76,81)(77,80);;
s1 := ( 1,57)( 2,63)( 3,62)( 4,61)( 5,60)( 6,59)( 7,58)( 8,50)( 9,56)(10,55)
(11,54)(12,53)(13,52)(14,51)(15,93)(16,92)(17,98)(18,97)(19,96)(20,95)(21,94)
(22,86)(23,85)(24,91)(25,90)(26,89)(27,88)(28,87)(29,79)(30,78)(31,84)(32,83)
(33,82)(34,81)(35,80)(36,72)(37,71)(38,77)(39,76)(40,75)(41,74)(42,73)(43,65)
(44,64)(45,70)(46,69)(47,68)(48,67)(49,66);;
s2 := ( 99,100);;
s3 := (101,102);;
s4 := (103,104);;
poly := Group([s0,s1,s2,s3,s4]);;
 
Finitely Presented Group Representation (GAP) :
F := FreeGroup("s0","s1","s2","s3","s4");;
s0 := F.1;;  s1 := F.2;;  s2 := F.3;;  s3 := F.4;;  s4 := F.5;;  
rels := [ s0*s0, s1*s1, s2*s2, s3*s3, s4*s4, s0*s2*s0*s2, 
s1*s2*s1*s2, s0*s3*s0*s3, s1*s3*s1*s3, 
s2*s3*s2*s3, s0*s4*s0*s4, s1*s4*s1*s4, 
s2*s4*s2*s4, s3*s4*s3*s4, 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*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*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*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*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(104)!( 2, 7)( 3, 6)( 4, 5)( 8,44)( 9,43)(10,49)(11,48)(12,47)(13,46)
(14,45)(15,37)(16,36)(17,42)(18,41)(19,40)(20,39)(21,38)(22,30)(23,29)(24,35)
(25,34)(26,33)(27,32)(28,31)(51,56)(52,55)(53,54)(57,93)(58,92)(59,98)(60,97)
(61,96)(62,95)(63,94)(64,86)(65,85)(66,91)(67,90)(68,89)(69,88)(70,87)(71,79)
(72,78)(73,84)(74,83)(75,82)(76,81)(77,80);
s1 := Sym(104)!( 1,57)( 2,63)( 3,62)( 4,61)( 5,60)( 6,59)( 7,58)( 8,50)( 9,56)
(10,55)(11,54)(12,53)(13,52)(14,51)(15,93)(16,92)(17,98)(18,97)(19,96)(20,95)
(21,94)(22,86)(23,85)(24,91)(25,90)(26,89)(27,88)(28,87)(29,79)(30,78)(31,84)
(32,83)(33,82)(34,81)(35,80)(36,72)(37,71)(38,77)(39,76)(40,75)(41,74)(42,73)
(43,65)(44,64)(45,70)(46,69)(47,68)(48,67)(49,66);
s2 := Sym(104)!( 99,100);
s3 := Sym(104)!(101,102);
s4 := Sym(104)!(103,104);
poly := sub<Sym(104)|s0,s1,s2,s3,s4>;
 
Finitely Presented Group Representation (Magma) :
poly<s0,s1,s2,s3,s4> := Group< s0,s1,s2,s3,s4 | s0*s0, s1*s1, s2*s2, 
s3*s3, s4*s4, s0*s2*s0*s2, s1*s2*s1*s2, 
s0*s3*s0*s3, s1*s3*s1*s3, s2*s3*s2*s3, 
s0*s4*s0*s4, s1*s4*s1*s4, s2*s4*s2*s4, 
s3*s4*s3*s4, 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*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*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*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*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 >; 
 

to this polytope