Quelle  InhomIneq.tst   Sprache: unbekannt

gap> START_TEST("InhomIneq.tst");

#
# Test a Hilbert series with negative shift
#
gap> M := [
> [0,  2,  1],
> [0, -2,  3],
> [2, -2,  3]
> ];
[ [ 0, 2, 1 ], [ 0, -2, 3 ], [ 2, -2, 3 ] ]
gap> InhomIneq := NmzCone(["inhom_inequalities", M, "grading", [[1,0]] ]);
<a Normaliz cone>
gap> NmzHilbertSeries(InhomIneq);
[ 1+t^-1, [ [ 1, 1 ] ] ]
gap> NmzHilbertQuasiPolynomial(InhomIneq);
[ 2 ]

#
gap> STOP_TEST("InhomIneq.tst", 0);