2012-07-11 12 views

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ù.