¿Hay alguna función de logaritmo GMP?

Question

¿Hay alguna función de logaritmo implementada en la biblioteca GMP?

Answer 1

No, no existe tal función en GMP. Solo en MPFR.

Answer 2

Sé que no pidió cómo ponerlo en práctica, pero ...

Se puede implementar un bruto utilizando las propiedades de los logaritmos: http://gnumbers.blogspot.com.au/2011/10/logarithm-of-large-number-it-is-not.html

Y la parte interna de la biblioteca GMP: https://gmplib.org/manual/Integer-Internals.html

Aquí está mi implementación para 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; 
    } 

Answer 3

Aquí está: https://github.com/linas/anant

Proporciona mp GNU logaritmo real y complejo, exp, seno, coseno, gamma, arctan, sqrt, polilogaritmo Riemann y zeta Hurwitz, hipergeométrica confluente, topologists seno, y Más.