mirror of
https://github.com/Z3Prover/z3
synced 2025-04-23 17:15:31 +00:00
Add accessors for RCF numeral internals (#7013)
This commit is contained in:
Christoph M. Wintersteiger
GitHub
parent
9382b96a32
commit
16753e43f1
7 changed files with 845 additions and 117 deletions
|
|
@ -17,7 +17,7 @@ Author:
|
|||
Leonardo de Moura (leonardo) 2012-01-05
|
||||
|
||||
Notes:
|
||||
|
||||
|
||||
--*/
|
||||
#include "api/z3.h"
|
||||
#include "api/api_log_macros.h"
|
||||
|
|
@ -32,12 +32,12 @@ static void reset_rcf_cancel(Z3_context c) {
|
|||
// no-op
|
||||
}
|
||||
|
||||
static Z3_rcf_num from_rcnumeral(rcnumeral a) {
|
||||
return reinterpret_cast<Z3_rcf_num>(a.data());
|
||||
static Z3_rcf_num from_rcnumeral(rcnumeral a) {
|
||||
return reinterpret_cast<Z3_rcf_num>(a.data());
|
||||
}
|
||||
|
||||
static rcnumeral to_rcnumeral(Z3_rcf_num a) {
|
||||
return rcnumeral::mk(a);
|
||||
static rcnumeral to_rcnumeral(Z3_rcf_num a) {
|
||||
return rcnumeral::mk(a);
|
||||
}
|
||||
|
||||
extern "C" {
|
||||
|
|
@ -179,7 +179,7 @@ extern "C" {
|
|||
RETURN_Z3(from_rcnumeral(r));
|
||||
Z3_CATCH_RETURN(nullptr);
|
||||
}
|
||||
|
||||
|
||||
Z3_rcf_num Z3_API Z3_rcf_neg(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_neg(c, a);
|
||||
|
|
@ -302,4 +302,139 @@ extern "C" {
|
|||
Z3_CATCH;
|
||||
}
|
||||
|
||||
bool Z3_API Z3_rcf_is_rational(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_is_rational(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).is_rational(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(false);
|
||||
}
|
||||
|
||||
bool Z3_API Z3_rcf_is_algebraic(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_is_algebraic(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).is_algebraic(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(false);
|
||||
}
|
||||
|
||||
bool Z3_API Z3_rcf_is_infinitesimal(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_is_infinitesimal(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).is_infinitesimal(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(false);
|
||||
}
|
||||
|
||||
bool Z3_API Z3_rcf_is_transcendental(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_is_transcendental(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).is_transcendental(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(false);
|
||||
}
|
||||
|
||||
unsigned Z3_API Z3_rcf_extension_index(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_extension_index(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).extension_index(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(false);
|
||||
}
|
||||
|
||||
Z3_symbol Z3_API Z3_rcf_transcendental_name(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_transcendental_name(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return of_symbol(rcfm(c).transcendental_name(to_rcnumeral(a)));
|
||||
Z3_CATCH_RETURN(of_symbol(symbol::null));
|
||||
}
|
||||
|
||||
Z3_symbol Z3_API Z3_rcf_infinitesimal_name(Z3_context c, Z3_rcf_num a) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_infinitesimal_name(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return of_symbol(rcfm(c).infinitesimal_name(to_rcnumeral(a)));
|
||||
Z3_CATCH_RETURN(of_symbol(symbol::null));
|
||||
}
|
||||
|
||||
unsigned Z3_API Z3_rcf_num_coefficients(Z3_context c, Z3_rcf_num a)
|
||||
{
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_num_coefficients(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).num_coefficients(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(0);
|
||||
}
|
||||
|
||||
Z3_rcf_num Z3_API Z3_rcf_coefficient(Z3_context c, Z3_rcf_num a, unsigned i)
|
||||
{
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_coefficient(c, a, i);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return from_rcnumeral(rcfm(c).get_coefficient(to_rcnumeral(a), i));
|
||||
Z3_CATCH_RETURN(nullptr);
|
||||
}
|
||||
|
||||
int Z3_API Z3_rcf_interval(Z3_context c, Z3_rcf_num a, int * lower_is_inf, int * lower_is_open, Z3_rcf_num * lower, int * upper_is_inf, int * upper_is_open, Z3_rcf_num * upper) {
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_interval(c, a, lower_is_inf, lower_is_open, lower, upper_is_inf, upper_is_open, upper);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
rcnumeral r_lower, r_upper;
|
||||
bool r = rcfm(c).get_interval(to_rcnumeral(a), *lower_is_inf, *lower_is_open, r_lower, *upper_is_inf, *upper_is_open, r_upper);
|
||||
*lower = from_rcnumeral(r_lower);
|
||||
*upper = from_rcnumeral(r_upper);
|
||||
return r;
|
||||
Z3_CATCH_RETURN(0);
|
||||
}
|
||||
|
||||
unsigned Z3_API Z3_rcf_num_sign_conditions(Z3_context c, Z3_rcf_num a)
|
||||
{
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_num_sign_conditions(c, a);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).num_sign_conditions(to_rcnumeral(a));
|
||||
Z3_CATCH_RETURN(0);
|
||||
}
|
||||
|
||||
int Z3_API Z3_rcf_sign_condition_sign(Z3_context c, Z3_rcf_num a, unsigned i)
|
||||
{
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_sign_condition_sign(c, a, i);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).get_sign_condition_sign(to_rcnumeral(a), i);
|
||||
Z3_CATCH_RETURN(0);
|
||||
}
|
||||
|
||||
unsigned Z3_API Z3_rcf_num_sign_condition_coefficients(Z3_context c, Z3_rcf_num a, unsigned i)
|
||||
{
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_num_sign_condition_coefficients(c, a, i);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return rcfm(c).num_sign_condition_coefficients(to_rcnumeral(a), i);
|
||||
Z3_CATCH_RETURN(0);
|
||||
}
|
||||
|
||||
Z3_rcf_num Z3_API Z3_rcf_sign_condition_coefficient(Z3_context c, Z3_rcf_num a, unsigned i, unsigned j)
|
||||
{
|
||||
Z3_TRY;
|
||||
LOG_Z3_rcf_sign_condition_coefficient(c, a, i, j);
|
||||
RESET_ERROR_CODE();
|
||||
reset_rcf_cancel(c);
|
||||
return from_rcnumeral(rcfm(c).get_sign_condition_coefficient(to_rcnumeral(a), i, j));
|
||||
Z3_CATCH_RETURN(nullptr);
|
||||
}
|
||||
};
|
||||
|
|
|
|||
|
|
@ -2080,6 +2080,7 @@ struct
|
|||
type rcf_num = Z3native.rcf_num
|
||||
|
||||
let del (ctx:context) (a:rcf_num) = Z3native.rcf_del ctx a
|
||||
let del_list (ctx:context) (ns:rcf_num list) = List.iter (fun a -> Z3native.rcf_del ctx a) ns
|
||||
let mk_rational (ctx:context) (v:string) = Z3native.rcf_mk_rational ctx v
|
||||
let mk_small_int (ctx:context) (v:int) = Z3native.rcf_mk_small_int ctx v
|
||||
|
||||
|
|
@ -2087,7 +2088,9 @@ struct
|
|||
let mk_e (ctx:context) = Z3native.rcf_mk_e ctx
|
||||
let mk_infinitesimal (ctx:context) = Z3native.rcf_mk_infinitesimal ctx
|
||||
|
||||
let mk_roots (ctx:context) (n:int) (a:rcf_num list) = let n, r = Z3native.rcf_mk_roots ctx n a in r
|
||||
let mk_roots (ctx:context) (a:rcf_num list) =
|
||||
let n, r = Z3native.rcf_mk_roots ctx (List.length a) a in
|
||||
List.init n (fun x -> List.nth r x)
|
||||
|
||||
let add (ctx:context) (a:rcf_num) (b:rcf_num) = Z3native.rcf_add ctx a b
|
||||
let sub (ctx:context) (a:rcf_num) (b:rcf_num) = Z3native.rcf_sub ctx a b
|
||||
|
|
@ -2109,6 +2112,83 @@ struct
|
|||
let num_to_string (ctx:context) (a:rcf_num) (compact:bool) (html:bool) = Z3native.rcf_num_to_string ctx a compact html
|
||||
let num_to_decimal_string (ctx:context) (a:rcf_num) (prec:int) = Z3native.rcf_num_to_decimal_string ctx a prec
|
||||
let get_numerator_denominator (ctx:context) (a:rcf_num) = Z3native.rcf_get_numerator_denominator ctx a
|
||||
|
||||
let is_rational (ctx:context) (a:rcf_num) = Z3native.rcf_is_rational ctx a
|
||||
let is_algebraic (ctx:context) (a:rcf_num) = Z3native.rcf_is_algebraic ctx a
|
||||
let is_infinitesimal (ctx:context) (a:rcf_num) = Z3native.rcf_is_infinitesimal ctx a
|
||||
let is_transcendental (ctx:context) (a:rcf_num) = Z3native.rcf_is_transcendental ctx a
|
||||
|
||||
let extension_index (ctx:context) (a:rcf_num) = Z3native.rcf_extension_index ctx a
|
||||
let transcendental_name (ctx:context) (a:rcf_num) = Z3native.rcf_transcendental_name ctx a
|
||||
let infinitesimal_name (ctx:context) (a:rcf_num) = Z3native.rcf_infinitesimal_name ctx a
|
||||
|
||||
let num_coefficients (ctx:context) (a:rcf_num) = Z3native.rcf_num_coefficients ctx a
|
||||
let get_coefficient (ctx:context) (a:rcf_num) (i:int) = Z3native.rcf_coefficient ctx a i
|
||||
|
||||
let coefficients (ctx:context) (a:rcf_num) =
|
||||
List.init (num_coefficients ctx a) (fun i -> Z3native.rcf_coefficient ctx a i)
|
||||
|
||||
type interval = {
|
||||
lower_is_inf : bool;
|
||||
lower_is_open : bool;
|
||||
lower : rcf_num;
|
||||
upper_is_inf : bool;
|
||||
upper_is_open : bool;
|
||||
upper : rcf_num;
|
||||
}
|
||||
|
||||
let root_interval (ctx:context) (a:rcf_num) =
|
||||
let ok, linf, lopen, l, uinf, uopen, u = Z3native.rcf_interval ctx a in
|
||||
let i:interval = {
|
||||
lower_is_inf = linf != 0;
|
||||
lower_is_open = lopen != 0;
|
||||
lower = l;
|
||||
upper_is_inf = uinf != 0;
|
||||
upper_is_open = uopen != 0;
|
||||
upper = u } in
|
||||
if ok != 0 then Some i else None
|
||||
|
||||
let sign_condition_sign (ctx:context) (a:rcf_num) (i:int) = Z3native.rcf_sign_condition_sign ctx a i
|
||||
|
||||
let sign_condition_coefficient (ctx:context) (a:rcf_num) (i:int) (j:int) = Z3native.rcf_sign_condition_coefficient ctx a i j
|
||||
|
||||
let num_sign_condition_coefficients (ctx:context) (a:rcf_num) (i:int) = Z3native.rcf_num_sign_condition_coefficients ctx a i
|
||||
|
||||
let sign_condition_coefficients (ctx:context) (a:rcf_num) (i:int) =
|
||||
let n = Z3native.rcf_num_sign_condition_coefficients ctx a i in
|
||||
List.init n (fun j -> Z3native.rcf_sign_condition_coefficient ctx a i j)
|
||||
|
||||
let sign_conditions (ctx:context) (a:rcf_num) =
|
||||
let n = Z3native.rcf_num_sign_conditions ctx a in
|
||||
List.init n (fun i ->
|
||||
(let nc = Z3native.rcf_num_sign_condition_coefficients ctx a i in
|
||||
List.init nc (fun j -> Z3native.rcf_sign_condition_coefficient ctx a i j)),
|
||||
Z3native.rcf_sign_condition_sign ctx a i)
|
||||
|
||||
type root = {
|
||||
obj : rcf_num;
|
||||
polynomial : rcf_num list;
|
||||
interval : interval option;
|
||||
sign_conditions : (rcf_num list * int) list;
|
||||
}
|
||||
|
||||
let roots (ctx:context) (a:rcf_num list) =
|
||||
let rs = mk_roots ctx a in
|
||||
List.map
|
||||
(fun r -> {
|
||||
obj = r;
|
||||
polynomial = coefficients ctx r;
|
||||
interval = root_interval ctx r;
|
||||
sign_conditions = sign_conditions ctx r})
|
||||
rs
|
||||
|
||||
let del_root (ctx:context) (r:root) =
|
||||
del ctx r.obj;
|
||||
List.iter (fun n -> del ctx n) r.polynomial;
|
||||
List.iter (fun (ns, _) -> del_list ctx ns) r.sign_conditions
|
||||
|
||||
let del_roots (ctx:context) (rs:root list) =
|
||||
List.iter (fun r -> del_root ctx r) rs
|
||||
end
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -3553,77 +3553,147 @@ end
|
|||
(** Real closed field *)
|
||||
module RCF :
|
||||
sig
|
||||
type rcf_num
|
||||
type rcf_num
|
||||
|
||||
(** Delete a RCF numeral created using the RCF API. *)
|
||||
val del : context -> rcf_num -> unit
|
||||
(** Delete a RCF numeral created using the RCF API. *)
|
||||
val del : context -> rcf_num -> unit
|
||||
|
||||
(** Return a RCF rational using the given string. *)
|
||||
val mk_rational : context -> string -> rcf_num
|
||||
(** Delete RCF numerals created using the RCF API. *)
|
||||
val del_list : context -> rcf_num list -> unit
|
||||
|
||||
(** Return a RCF small integer. *)
|
||||
val mk_small_int : context -> int -> rcf_num
|
||||
(** Return a RCF rational using the given string. *)
|
||||
val mk_rational : context -> string -> rcf_num
|
||||
|
||||
(** Return Pi *)
|
||||
val mk_pi : context -> rcf_num
|
||||
(** Return a RCF small integer. *)
|
||||
val mk_small_int : context -> int -> rcf_num
|
||||
|
||||
(** Return e (Euler's constant) *)
|
||||
val mk_e : context -> rcf_num
|
||||
(** Return Pi *)
|
||||
val mk_pi : context -> rcf_num
|
||||
|
||||
(** Return a new infinitesimal that is smaller than all elements in the Z3 field. *)
|
||||
val mk_infinitesimal : context -> rcf_num
|
||||
(** Return e (Euler's constant) *)
|
||||
val mk_e : context -> rcf_num
|
||||
|
||||
(** Extract the roots of a polynomial. Precondition: The input polynomial is not the zero polynomial. *)
|
||||
val mk_roots : context -> int -> rcf_num list -> rcf_num list
|
||||
(** Return a new infinitesimal that is smaller than all elements in the Z3 field. *)
|
||||
val mk_infinitesimal : context -> rcf_num
|
||||
|
||||
(** Addition *)
|
||||
val add : context -> rcf_num -> rcf_num -> rcf_num
|
||||
(** Extract the roots of a polynomial. Precondition: The input polynomial is not the zero polynomial. *)
|
||||
val mk_roots : context -> rcf_num list -> rcf_num list
|
||||
|
||||
(** Subtraction *)
|
||||
val sub : context -> rcf_num -> rcf_num -> rcf_num
|
||||
(** Addition *)
|
||||
val add : context -> rcf_num -> rcf_num -> rcf_num
|
||||
|
||||
(** Multiplication *)
|
||||
val mul : context -> rcf_num -> rcf_num -> rcf_num
|
||||
(** Subtraction *)
|
||||
val sub : context -> rcf_num -> rcf_num -> rcf_num
|
||||
|
||||
(** Division *)
|
||||
val div : context -> rcf_num -> rcf_num -> rcf_num
|
||||
(** Multiplication *)
|
||||
val mul : context -> rcf_num -> rcf_num -> rcf_num
|
||||
|
||||
(** Negation *)
|
||||
val neg : context -> rcf_num -> rcf_num
|
||||
(** Division *)
|
||||
val div : context -> rcf_num -> rcf_num -> rcf_num
|
||||
|
||||
(** Multiplicative Inverse *)
|
||||
val inv : context -> rcf_num -> rcf_num
|
||||
(** Negation *)
|
||||
val neg : context -> rcf_num -> rcf_num
|
||||
|
||||
(** Power *)
|
||||
val power : context -> rcf_num -> int -> rcf_num
|
||||
(** Multiplicative Inverse *)
|
||||
val inv : context -> rcf_num -> rcf_num
|
||||
|
||||
(** less-than *)
|
||||
val lt : context -> rcf_num -> rcf_num -> bool
|
||||
(** Power *)
|
||||
val power : context -> rcf_num -> int -> rcf_num
|
||||
|
||||
(** greater-than *)
|
||||
val gt : context -> rcf_num -> rcf_num -> bool
|
||||
(** less-than *)
|
||||
val lt : context -> rcf_num -> rcf_num -> bool
|
||||
|
||||
(** less-than or equal *)
|
||||
val le : context -> rcf_num -> rcf_num -> bool
|
||||
(** greater-than *)
|
||||
val gt : context -> rcf_num -> rcf_num -> bool
|
||||
|
||||
(** greater-than or equal *)
|
||||
val ge : context -> rcf_num -> rcf_num -> bool
|
||||
(** less-than or equal *)
|
||||
val le : context -> rcf_num -> rcf_num -> bool
|
||||
|
||||
(** equality *)
|
||||
val eq : context -> rcf_num -> rcf_num -> bool
|
||||
(** greater-than or equal *)
|
||||
val ge : context -> rcf_num -> rcf_num -> bool
|
||||
|
||||
(** not equal *)
|
||||
val neq : context -> rcf_num -> rcf_num -> bool
|
||||
(** equality *)
|
||||
val eq : context -> rcf_num -> rcf_num -> bool
|
||||
|
||||
(** Convert the RCF numeral into a string. *)
|
||||
val num_to_string : context -> rcf_num -> bool -> bool -> string
|
||||
(** not equal *)
|
||||
val neq : context -> rcf_num -> rcf_num -> bool
|
||||
|
||||
(** Convert the RCF numeral into a string in decimal notation. *)
|
||||
val num_to_decimal_string : context -> rcf_num -> int -> string
|
||||
(** Convert the RCF numeral into a string. *)
|
||||
val num_to_string : context -> rcf_num -> bool -> bool -> string
|
||||
|
||||
(** Extract the "numerator" and "denominator" of the given RCF numeral.
|
||||
We have that \ccode{a = n/d}, moreover \c n and \c d are not represented using rational functions. *)
|
||||
val get_numerator_denominator : context -> rcf_num -> (rcf_num * rcf_num)
|
||||
(** Convert the RCF numeral into a string in decimal notation. *)
|
||||
val num_to_decimal_string : context -> rcf_num -> int -> string
|
||||
|
||||
(** Extract the "numerator" and "denominator" of the given RCF numeral.
|
||||
We have that \ccode{a = n/d}, moreover \c n and \c d are not represented using rational functions. *)
|
||||
val get_numerator_denominator : context -> rcf_num -> (rcf_num * rcf_num)
|
||||
|
||||
(** Return \c true if \c a represents a rational number. *)
|
||||
val is_rational : context -> rcf_num -> bool
|
||||
|
||||
(** Return \c true if \c a represents an algebraic number. *)
|
||||
val is_algebraic : context -> rcf_num -> bool
|
||||
|
||||
(** Return \c true if \c a represents an infinitesimal. *)
|
||||
val is_infinitesimal : context -> rcf_num -> bool
|
||||
|
||||
(** Return \c true if \c a represents a transcendental number. *)
|
||||
val is_transcendental : context -> rcf_num -> bool
|
||||
|
||||
(** Return the index of a field extension. *)
|
||||
val extension_index : context -> rcf_num -> int
|
||||
|
||||
(** Return the name of a transcendental. *)
|
||||
val transcendental_name : context -> rcf_num -> Symbol.symbol
|
||||
|
||||
(** Return the name of an infinitesimal. *)
|
||||
val infinitesimal_name : context -> rcf_num -> Symbol.symbol
|
||||
|
||||
(** Return the number of coefficients in an algebraic number. *)
|
||||
val num_coefficients : context -> rcf_num -> int
|
||||
|
||||
(** Extract a coefficient from an algebraic number. *)
|
||||
val get_coefficient : context -> rcf_num -> int -> rcf_num
|
||||
|
||||
(** Extract the coefficients from an algebraic number. *)
|
||||
val coefficients : context -> rcf_num -> rcf_num list
|
||||
|
||||
(** Extract the sign of a sign condition from an algebraic number. *)
|
||||
val sign_condition_sign : context -> rcf_num -> int -> int
|
||||
|
||||
(** Return the size of a sign condition polynomial. *)
|
||||
val num_sign_condition_coefficients : context -> rcf_num -> int -> int
|
||||
|
||||
(** Extract a sign condition polynomial coefficient from an algebraic number. *)
|
||||
val sign_condition_coefficient : context -> rcf_num -> int -> int -> rcf_num
|
||||
|
||||
(** Extract sign conditions from an algebraic number. *)
|
||||
val sign_conditions : context -> rcf_num -> (rcf_num list * int) list
|
||||
|
||||
(** Extract the interval from an algebraic number. *)
|
||||
type interval = {
|
||||
lower_is_inf : bool;
|
||||
lower_is_open : bool;
|
||||
lower : rcf_num;
|
||||
upper_is_inf : bool;
|
||||
upper_is_open : bool;
|
||||
upper : rcf_num;
|
||||
}
|
||||
|
||||
val root_interval : context -> rcf_num -> interval option
|
||||
|
||||
type root = {
|
||||
obj : rcf_num;
|
||||
polynomial : rcf_num list;
|
||||
interval : interval option;
|
||||
sign_conditions : (rcf_num list * int) list;
|
||||
}
|
||||
|
||||
val roots : context -> rcf_num list -> root list
|
||||
|
||||
val del_root : context -> root -> unit
|
||||
|
||||
val del_roots : context -> root list -> unit
|
||||
end
|
||||
|
||||
(** Set a global (or module) parameter, which is shared by all Z3 contexts.
|
||||
|
|
|
|||
120
src/api/z3_rcf.h
120
src/api/z3_rcf.h
|
|
@ -193,8 +193,124 @@ extern "C" {
|
|||
We have that \ccode{a = n/d}, moreover \c n and \c d are not represented using rational functions.
|
||||
|
||||
def_API('Z3_rcf_get_numerator_denominator', VOID, (_in(CONTEXT), _in(RCF_NUM), _out(RCF_NUM), _out(RCF_NUM)))
|
||||
*/
|
||||
void Z3_API Z3_rcf_get_numerator_denominator(Z3_context c, Z3_rcf_num a, Z3_rcf_num * n, Z3_rcf_num * d);
|
||||
*/
|
||||
void Z3_API Z3_rcf_get_numerator_denominator(Z3_context c, Z3_rcf_num a, Z3_rcf_num * n, Z3_rcf_num * d);
|
||||
|
||||
/**
|
||||
\brief Return \c true if \c a represents a rational number.
|
||||
|
||||
def_API('Z3_rcf_is_rational', BOOL, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
bool Z3_API Z3_rcf_is_rational(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return \c true if \c a represents an algebraic number.
|
||||
|
||||
def_API('Z3_rcf_is_algebraic', BOOL, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
bool Z3_API Z3_rcf_is_algebraic(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return \c true if \c a represents an infinitesimal.
|
||||
|
||||
def_API('Z3_rcf_is_infinitesimal', BOOL, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
bool Z3_API Z3_rcf_is_infinitesimal(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return \c true if \c a represents a transcendental number.
|
||||
|
||||
def_API('Z3_rcf_is_transcendental', BOOL, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
bool Z3_API Z3_rcf_is_transcendental(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return the index of a field extension.
|
||||
|
||||
def_API('Z3_rcf_extension_index', UINT, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
unsigned Z3_API Z3_rcf_extension_index(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return the name of a transcendental.
|
||||
|
||||
\pre Z3_rcf_is_transcendtal(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_transcendental_name', SYMBOL, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
Z3_symbol Z3_API Z3_rcf_transcendental_name(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return the name of an infinitesimal.
|
||||
|
||||
\pre Z3_rcf_is_infinitesimal(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_infinitesimal_name', SYMBOL, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
Z3_symbol Z3_API Z3_rcf_infinitesimal_name(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Return the number of coefficients in an algebraic number.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_num_coefficients', UINT, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
unsigned Z3_API Z3_rcf_num_coefficients(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Extract a coefficient from an algebraic number.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_coefficient', RCF_NUM, (_in(CONTEXT), _in(RCF_NUM), _in(UINT)))
|
||||
*/
|
||||
Z3_rcf_num Z3_API Z3_rcf_coefficient(Z3_context c, Z3_rcf_num a, unsigned i);
|
||||
|
||||
/**
|
||||
\brief Extract an interval from an algebraic number.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_interval', INT, (_in(CONTEXT), _in(RCF_NUM), _out(INT), _out(INT), _out(RCF_NUM), _out(INT), _out(INT), _out(RCF_NUM)))
|
||||
*/
|
||||
int Z3_API Z3_rcf_interval(Z3_context c, Z3_rcf_num a, int * lower_is_inf, int * lower_is_open, Z3_rcf_num * lower, int * upper_is_inf, int * upper_is_open, Z3_rcf_num * upper);
|
||||
|
||||
/**
|
||||
\brief Return the number of sign conditions of an algebraic number.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_num_sign_conditions', UINT, (_in(CONTEXT), _in(RCF_NUM)))
|
||||
*/
|
||||
unsigned Z3_API Z3_rcf_num_sign_conditions(Z3_context c, Z3_rcf_num a);
|
||||
|
||||
/**
|
||||
\brief Extract the sign of a sign condition from an algebraic number.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_sign_condition_sign', INT, (_in(CONTEXT), _in(RCF_NUM), _in(UINT)))
|
||||
*/
|
||||
int Z3_API Z3_rcf_sign_condition_sign(Z3_context c, Z3_rcf_num a, unsigned i);
|
||||
|
||||
/**
|
||||
\brief Return the number of sign condition polynomial coefficients of an algebraic number.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_num_sign_condition_coefficients', UINT, (_in(CONTEXT), _in(RCF_NUM), _in(UINT)))
|
||||
*/
|
||||
unsigned Z3_API Z3_rcf_num_sign_condition_coefficients(Z3_context c, Z3_rcf_num a, unsigned i);
|
||||
|
||||
/**
|
||||
\brief Extract the j-th polynomial coefficient of the i-th sign condition.
|
||||
|
||||
\pre Z3_rcf_is_algebraic(ctx, a);
|
||||
|
||||
def_API('Z3_rcf_sign_condition_coefficient', RCF_NUM, (_in(CONTEXT), _in(RCF_NUM), _in(UINT), _in(UINT)))
|
||||
*/
|
||||
Z3_rcf_num Z3_API Z3_rcf_sign_condition_coefficient(Z3_context c, Z3_rcf_num a, unsigned i, unsigned j);
|
||||
|
||||
/**@}*/
|
||||
/**@}*/
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue