ocplib-simplex 0.5 · OCaml Package

Modules

module Var : ExtSigs.Variables

The type of variables maipulated by the simplex algorithm.

module Ex : ExtSigs.Explanations

An interface for explanations; in practice, they are labels attached to bounds used for backtracking information on how bounds were discovered. The simplex algorithm does not create explanations: it will only attach empty explanations to bounds, build the union of explanations and print them. It is the user's job to provide the initial explanations when initializing the simplex core.

module R : ExtSigs.Rationals

The interface for rationals provided by users.

module R2 : Rat2.SIG with module R = R

Pairs of rationals R representing bounds with an offset x + kƐ.

module P : Polys.SIG with module Var = Var and module R = R

Linear relations of variables.

module MX : Map.S with type key = Var.t

Collections of variables.

module SX : Set.S with type elt = Var.t

Types

type bound = {

bvalue : R2.t;
explanation : Ex.t;

}

A bound is a value of the form x + kƐ and an explanation.

type value_status =

| ValueOK
(*
The value is inbetween bounds.
*)
| LowerKO
(*
The value is smaller than the lower bound.
*)
| UpperKO
(*
The value is greater than the upper bound.
*)

type var_info = {

mini : bound option;
maxi : bound option;
value : R2.t;
vstatus : value_status;
empty_dom : bool;

}

type solution = {

main_vars : (Var.t * R.t) list;
slake_vars : (Var.t * R.t) list;
int_sol : bool;
epsilon : R.t;

}

type maximum = {

max_v : bound;
is_le : bool;

}

type result =

| Unknown
| Unsat of Ex.t Lazy.t
| Sat of solution Lazy.t
| Unbounded of solution Lazy.t
| Max of maximum Lazy.t * solution Lazy.t

type simplex_status =

| UNK
| UNSAT of Var.t
| SAT

type t = {

basic : (var_info * P.t) MX.t;
non_basic : (var_info * SX.t) MX.t;
slake : P.t MX.t;
fixme : SX.t;
is_int : bool;
status : simplex_status;
check_invs : bool;
nb_pivots : int ref;

}

val empty : is_int:bool -> check_invs:bool -> t

Returns a simplex environment with three parameters:

is_int: will the simplex work on an integer optimization problem or a rational problem?
check_invs: processes checks after the calculation (deprecated).

val on_integers : t -> bool

Returns true if the simplex environment is on integers.

val equals_optimum : R2.t -> bound option -> bool

Equality check between bounds.

val consistent_bounds : var_info -> bool

Checks if the lower bound of a variable is smaller than its upper bound.

val violates_min_bound : R2.t -> bound option -> bool

violates_min_bound b mb returns true if b is smaller than mb.

val violates_max_bound : R2.t -> bound option -> bool

violates_max_bound b mb returns true if b is greater than mb.

val set_min_bound : var_info -> bound option -> var_info * bool

set_min_bound vinfo b returns a couple (vinfo', changed) where:

vinfo' is the new variable info where the new min bound b has been set.
changed is true if the new bound has changed the variable info

val set_max_bound : var_info -> bound option -> var_info * bool

Same as set_min_bound, but for max bounds.

val ajust_value_of_non_basic : var_info -> var_info * bool

ajust_value_of_non_basic vinfo updates the info's value with the upper bound (resp. the lower bound), if vinfo's status is UpperKO (resp. LowerKO). Otherwise, do nothing. The boolean returned is true if the new variable var_info has changed.

val ajust_status_of_basic : var_info -> var_info

ajust_status_of_basic vinfo checks a variable info's bound matches its status. If its value violates its lower bound, its status is set to LowerKO. In the other case, it is set to UpperKO. If the value is between the two bounds, it is set to ValueOK.

val evaluate_poly : t -> P.t -> R2.t

Evaluates a polynomial of non basic variables.

val poly_of_slake : t -> Var.t -> P.t option

poly_of_slake env slake returns the polynomial associated to the variable slake in env.

val expl_of_min_bound : var_info -> Ex.t

Returns the explanation associated to a variable lower bound.

val expl_of_max_bound : var_info -> Ex.t

Same as `expl_of_min_bound`, but for upper bounds.

Debug functions

Only use for internal debugging

val check_invariants : t -> (t -> result) -> unit

Checks several invariants in the project

val print : result -> Format.formatter -> t -> unit

Pretty prints the environment.

val debug : string -> t -> (t -> result) -> unit

deprecated

package ocplib-simplex

Modules

Types

Debug functions