/* Defining polynomial */ x^2 - x + 9 /* Minimal vectors */ [ <-w + 1, w - 4>, <1, -1>, <3, -w - 2>, <0, 1>, , <-w + 2, -3>, <-3*w + 3, w - 9>, <3, -w - 1>, <2*w + 6, -3*w + 3>, <-w + 9, -2*w - 6>, <1, 0> ] /* Voronoi top cells */ [ { 1, 2, 3, 4 }, { 5, 6, 7, 8, 9, 10 }, { 2, 3, 4, 5, 8 }, { 2, 4, 5, 6, 8, 11 } ] /* Faces of top cells */ [ [ { 2, 3, 4 }, { 1, 3, 4 }, { 1, 2, 4 }, { 1, 2, 3 } ], [ { 6, 7, 8 }, { 5, 6, 8 }, { 5, 6, 9 }, { 6, 7, 9 }, { 7, 8, 10 }, { 5, 8, 10 }, { 5, 9, 10 }, { 7, 9, 10 } ], [ { 3, 5, 8 }, { 2, 4, 5, 8 }, { 2, 3, 5 }, { 3, 4, 8 }, { 2, 3, 4 } ], [ { 2, 4, 5, 8 }, { 2, 5, 6, 11 }, { 5, 6, 8 }, { 4, 6, 8, 11 }, { 2, 4, 11 } ] ] /* Order of PGL_2(O) stabilizers of Voronoi top cells */ [ 2, 3, 1, 3 ] /* GAP id of GL_2(O) stabilizers of Voronoi top cells */ [ <4, 1>, <6, 2>, <2, 1>, <6, 2> ]