i1 : R = QQ[a..d]; |
i2 : I = ideal(a*c-b^2,a*d-b*c,b*d-c^2); o2 : Ideal of R |
i3 : statePolytope(3,I)
VERTICES
1 9 6 6 9
1 9 3 12 6
1 7 5 14 4
1 5 8 14 3
1 3 12 12 3
1 6 12 3 9
1 4 14 5 7
1 3 14 8 5
o3 = {{9, 6, 6, 9}, {9, 3, 12, 6}, {7, 5, 14, 4}, {5, 8, 14, 3}, {3, 12, 12,
------------------------------------------------------------------------
3}, {6, 12, 3, 9}, {4, 14, 5, 7}, {3, 14, 8, 5}}
o3 : List
|