Table of Contents

A short note on variable naming up front: You can alter variable names used for parsing polynomials and for pretty-printing using the set_var_names or local_var_names functions. Refer to their documentation for defaults and usage information. To restore the default settings, type this:

> reset_custom %polynomial_var_names;

Usage of Polynomials in Perl

Constructors

The easiest way to create a simple Polynomial object is through a string:

> $p = new Polynomial("4 + 3x_1 + x_2^5");

Sometimes it's convenient to use the constructor that takes a vector of coefficients and a matrix of exponents:

> $coeff = new Vector([9,-5]);
> $exp = new Matrix<Int>([[0,4],[8,3]]);
> $p2 = new Polynomial($coeff, $exp);
> print $p2;
-5*x_0^8*x_1^3 + 9*x_1^4

There is a separate type for univariate polynomials, called UniPolynomial.

> $up = new UniPolynomial("3x + 2x^2 + 4");

Polynomials (and UniPolynomials) are templated by their coefficient and exponent types, defaulting to Rational for coefficients and Int for exponents. You can even have polynomials of polynomials (of polynomials…).

> $pp = new UniPolynomial<UniPolynomial<Rational,Int>,Rational>("(4x^2+5)y3/2 - 5/3x4y2/3");
> print $pp;
(4*x^2 + 5)*y^3/2 + (-5/3*x^4)*y^2/3

Computations

The standard arithmetic functions “+”, “-”, “*”, “^” are defined for polynomials of matching type.

> print $p + ($p^2);
9*x_1^2 + 6*x_1*x_2^5 + 27*x_1 + x_2^10 + 9*x_2^5 + 20

However, note that due to the fact that their precedence is given in perl, it may be necessary to write more parentheses than expected at first sight. For example, as above, you always have to write “($p^2)” because of the lower precedence of the “^” operator…

> print $p + $p^2;
36*x_1^2 + 24*x_1*x_2^5 + 96*x_1 + 4*x_2^10 + 32*x_2^5 + 64

For UniPolynomials, we even have polynome division:

> print (($up^2)/$up);
(2*x^2 + 3*x + 4)/(1)

Example: Newton Polynomials

Here is one way to produce polytopes from polynomials (as the convex hull of the exponent vectors of all terms).

> $np = newton($p*($p+$p));
> print $np->VERTICES;
1 0 0 0
1 0 0 10
1 0 2 0
> print equal_polyhedra($np,minkowski_sum(newton($p),newton($p+$p)));
true

The Newton polytope of the product of two polynomials always equals the Minkowski sum of the Newton polytopes of the factors.

Example: Toric Degeneration

The following describes how to construct the polynomial which describes the toric deformation with respect to a point configuration and a height function. This is the input data:

> $points = new Matrix<Int>([1,0],[0,1]);
> $height = new Vector<Int>([2,3]);
> $coefficients = new Vector<Rational>([-1/2,1/3]);

The following is generic (assuming that the dimensions of the objects above match).

> $p = new Polynomial($coefficients,$height|$points);

Notice that the points are given in Euclidean coordinates; that is, if applied, e.g., to the VERTICES of a polytope do not forget to strip the homogenizing coordinate. The output in our example looks like this:

> print $p;
1/3*x_0^3*x_2 -1/2*x_0^2*x_1

Puiseux Fractions

Polymake supports the usage of Puiseux fractions - see for example this paper for reference.

The preferred way of creating a new Puiseux fraction is to create an ordinary monomial, and then use that to define a new PuiseuxFraction object:

> $x = monomials<Rational,Rational>(1); # create a list of `1` monomial, with `Rational` coefficients and `Rational` exponents
> $f = new PuiseuxFraction<Min>(2*($x^(1/3)) + ($x^(5/2)));

If you have the common denominator of all exponents at hand you could also intermediately set $x = $x^(1/N) to save yourself some work.

We can compute the valuation of a puiseux fraction:

> print $f->val;
1/3

Evaluate a puiseux fraction at $2^6$:

> print evaluate($f,2,6);
32776

Operators like +, -, *, / are defined as you'd expect.

Besides, puiseux fractions, similar to rational functions over any ordered field, have a natural ordering induced by the ordering of the coefficients (see the above mentioned paper for detals) - polymake correspondingly overloads the operators <, >, <=, >=:

> $g = new PuiseuxFraction<Min>(3*($x^(3/2)));
> print $f>$g;
true

Applications

One usage example is parametrized polyhedra. As an example we compute a family of 3 dimensional Klee-Minty cubes:

> $k = klee_minty_cube(3, $f);
> print "facets:\n", $k->FACETS, "\nvolume:\n", $k->VOLUME;
facets:
(0) (1) (0) (0)
(1) (- 1) (0) (0)
(0) (-2*x^1/3 - x^5/2) (1) (0)
(1) (-2*x^1/3 - x^5/2) (- 1) (0)
(0) (0) (-2*x^1/3 - x^5/2) (1)
(1) (0) (-2*x^1/3 - x^5/2) (- 1)
 
volume:
(1 -4*x^1/3 + 4*x^2/3 -2*x^5/2 + 4*x^17/6 + x^5)

You can even check for (combinatorial) isomorphy:

> print isomorphic($k, cube(3));
true

As another example related to linear optimization we compute a family of 3 dimensional Goldfarb-Sit cubes (again, see the above mentioned paper, and consult:

> $l = goldfarb_sit(3, $g, 1/2);
> print $l->LP->MAXIMAL_VALUE;
(1)
> print $l->LP->MAXIMAL_VERTEX;
(1) (0) (0) (1)
> print $l->VOLUME;
(27/8*x^9/2 -81/4*x^6 + 243/8*x^15/2)