Polytope of Type {98,2,4}

This page is part of the Atlas of Small Regular Polytopes
Atlas Canonical Name : {98,2,4}*1568
if this polytope has a name.
Group : SmallGroup(1568,181)
Rank : 4
Schlafli Type : {98,2,4}
Number of vertices, edges, etc : 98, 98, 4, 4
Order of s0s1s2s3 : 196
Order of s0s1s2s3s2s1 : 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,4}*784, {98,2,2}*784
   4-fold quotients : {49,2,2}*392
   7-fold quotients : {14,2,4}*224
   14-fold quotients : {7,2,4}*112, {14,2,2}*112
   28-fold quotients : {7,2,2}*56
   49-fold quotients : {2,2,4}*32
   98-fold quotients : {2,2,2}*16
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 := (100,101);;
s3 := ( 99,100)(101,102);;
poly := Group([s0,s1,s2,s3]);;
 
Finitely Presented Group Representation (GAP) :
F := FreeGroup("s0","s1","s2","s3");;
s0 := F.1;;  s1 := F.2;;  s2 := F.3;;  s3 := F.4;;  
rels := [ s0*s0, s1*s1, s2*s2, s3*s3, s0*s2*s0*s2, 
s1*s2*s1*s2, s0*s3*s0*s3, s1*s3*s1*s3, 
s2*s3*s2*s3*s2*s3*s2*s3, 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(102)!( 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(102)!( 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(102)!(100,101);
s3 := Sym(102)!( 99,100)(101,102);
poly := sub<Sym(102)|s0,s1,s2,s3>;
 
Finitely Presented Group Representation (Magma) :
poly<s0,s1,s2,s3> := Group< s0,s1,s2,s3 | s0*s0, s1*s1, s2*s2, 
s3*s3, s0*s2*s0*s2, s1*s2*s1*s2, s0*s3*s0*s3, 
s1*s3*s1*s3, s2*s3*s2*s3*s2*s3*s2*s3, 
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