mirrors/z3
3
0
Fork 0
mirror of https://github.com/Z3Prover/z3 synced 2025-04-15 13:28:47 +00:00
Code Activity

Replace expensive_eval_sign_at with version that does not generate rational numbers

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-01-14 18:30:36 -08:00
parent 799fe073db
commit f0737bdf7f
1 changed files with 33 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/math/realclosure/realclosure.cpp
View file

@ -3784,13 +3784,40 @@ namespace realclosure {
\brief Evaluate the sign of p(b) by computing a value object. \brief Evaluate the sign of p(b) by computing a value object.
*/ */
int expensive_eval_sign_at(unsigned n, value * const * p, mpbq const & b) { int expensive_eval_sign_at(unsigned n, value * const * p, mpbq const & b) {
SASSERT(n > 0); SASSERT(n > 1);
SASSERT(p[n - 1] != 0); SASSERT(p[n - 1] != 0);
value_ref _b(*this); // Actually, given b = c/2^k, we compute the sign of (2^k)^n*p(c)
_b = mk_rational(b); // Original Horner Sequence
value_ref pb(*this); // ((a_n * b + a_{n-1})*b + a_{n-2})*b + a_{n-3} ...
mk_polynomial_value(n, p, _b, pb); // Variation of the Horner Sequence for (2^k)^n*p(b)
return sign(pb); // ((a_n * c + a_{n-1}*2_k)*c + a_{n-2}*(2_k)^2)*c + a_{n-3}*(2_k)^3 ... + a_0*(2_k)^n
scoped_mpz mpz_twok(qm());
qm().mul2k(mpz(1), b.k(), mpz_twok);
value_ref twok(*this), twok_i(*this);
twok = mk_rational(mpz_twok);
twok_i = twok;
value_ref c(*this);
c = mk_rational(b.numerator());
value_ref r(*this), ak(*this), rc(*this);
r = p[n-1];
unsigned i = n-1;
while (i > 0) {
--i;
if (is_zero(p[i])) {
mul(r, c, r);
}
else {
// ak <- a_i * (2^k)^(n-i)
mul(p[i], twok_i, ak);
// r <- r * c + a_i * (2^k)^(n-i)
mul(r, c, rc);
add(ak, rc, r);
}
mul(twok_i, twok, twok_i);
}
return sign(r);
} }
/** /**