Esiste qualche funzione logaritmo implementata nella libreria GMP?Esiste qualche funzione logaritmo GMP?
7
A
risposta
3
No non esiste tale funzione in GMP. Solo in MPFR.
5
So che non hai chiesto come implementarlo, ma ...
È possibile implementare uno approssimativa utilizzando le proprietà dei logaritmi: http://gnumbers.blogspot.com.au/2011/10/logarithm-of-large-number-it-is-not.html
e gli elementi interni della biblioteca GMP: https://gmplib.org/manual/Integer-Internals.html
Ecco la mia implementazione per Rationals.
double LogE(mpq_t m_op)
{
// log(a/b) = log(a) - log(b)
// And if a is represented in base B as:
// a = a_N B^N + a_{N-1} B^{N-1} + ... + a_0
// => log(a) \approx log(a_N B^N)
// = log(a_N) + N log(B)
// where B is the base; ie: ULONG_MAX
static double logB = log(ULONG_MAX);
// Undefined logs (should probably return NAN in second case?)
if (mpz_get_ui(mpq_numref(m_op)) == 0 || mpz_sgn(mpq_numref(m_op)) < 0)
return -INFINITY;
// Log of numerator
double lognum = log(mpq_numref(m_op)->_mp_d[abs(mpq_numref(m_op)->_mp_size) - 1]);
lognum += (abs(mpq_numref(m_op)->_mp_size)-1) * logB;
// Subtract log of denominator, if it exists
if (abs(mpq_denref(m_op)->_mp_size) > 0)
{
lognum -= log(mpq_denref(m_op)->_mp_d[abs(mpq_denref(m_op)->_mp_size)-1]);
lognum -= (abs(mpq_denref(m_op)->_mp_size)-1) * logB;
}
return lognum;
}
1
Eccolo: https://github.com/linas/anant
Fornisce GNU MP reale e complessa logaritmo, exp, seno, coseno, gamma, arctan, sqrt, polilogaritmo Riemann e Hurwitz zeta, confluente ipergeometrica, topologi sine, e Di Più.