- """
- if K2 is None:
- K2 = K
-
- # First we project K onto the span of K2. This will explode if the
- # rank of ``K2.lattice()`` doesn't match ours.
- span_K2 = Cone(K2.rays() + (-K2).rays(), lattice=K.lattice())
- K = K.intersection(span_K2)
-
- # Cheat a little to get the subspace span(K2). The paper uses the
- # rays of K2 as a basis, but everything is invariant under linear
- # isomorphism (i.e. a change of basis), and this is a little
- # faster.
- W = span_K2.linear_subspace()
-
- # We've already intersected K with the span of K2, so every
- # generator of K should belong to W now.
- W_rays = [ W.coordinate_vector(r) for r in K.rays() ]
-
- L = ToricLattice(K2.dim())
- return Cone(W_rays, lattice=L)
-
-
-
-def discrete_complementarity_set(K):
- r"""
- Compute the discrete complementarity set of this cone.
-
- The complementarity set of this cone is the set of all orthogonal
- pairs `(x,s)` such that `x` is in this cone, and `s` is in its
- dual. The discrete complementarity set restricts `x` and `s` to be
- generators of their respective cones.
-
- OUTPUT:
-
- A list of pairs `(x,s)` such that,
-
- * `x` is a generator of this cone.
- * `s` is a generator of this cone's dual.
- * `x` and `s` are orthogonal.
-
- EXAMPLES:
-
- The discrete complementarity set of the nonnegative orthant consists
- of pairs of standard basis vectors::
-
- sage: K = Cone([(1,0),(0,1)])
- sage: discrete_complementarity_set(K)
- [((1, 0), (0, 1)), ((0, 1), (1, 0))]
-
- If the cone consists of a single ray, the second components of the
- discrete complementarity set should generate the orthogonal
- complement of that ray::
-
- sage: K = Cone([(1,0)])
- sage: discrete_complementarity_set(K)
- [((1, 0), (0, 1)), ((1, 0), (0, -1))]
- sage: K = Cone([(1,0,0)])
- sage: discrete_complementarity_set(K)
- [((1, 0, 0), (0, 1, 0)),
- ((1, 0, 0), (0, -1, 0)),
- ((1, 0, 0), (0, 0, 1)),
- ((1, 0, 0), (0, 0, -1))]
-
- When the cone is the entire space, its dual is the trivial cone, so
- the discrete complementarity set is empty::
-
- sage: K = Cone([(1,0),(-1,0),(0,1),(0,-1)])
- sage: discrete_complementarity_set(K)
- []