forked from libtom/libtomfloat
-
Notifications
You must be signed in to change notification settings - Fork 0
/
mpf_pow.c
36 lines (30 loc) · 1018 Bytes
/
mpf_pow.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
/* LibTomFloat, multiple-precision floating-point library
*
* LibTomFloat is a library that provides multiple-precision
* floating-point artihmetic as well as trigonometric functionality.
*
* This library requires the public domain LibTomMath to be installed.
*
* This library is free for all purposes without any express
* gurantee it works
*
* Tom St Denis, tomstdenis@iahu.ca, http://float.libtomcrypt.org
*/
#include <tomfloat.h>
/* we have e^x, so why not write a^b as e^(lna * b) ;-) w00t w00t */
int mpf_pow(mp_float *a, mp_float *b, mp_float *c)
{
mp_float exponent;
int err;
if ((err = mpf_init(&exponent, c->radix)) != MP_OKAY) {
return err;
}
/* get ln of a */
if ((err = mpf_ln(a, &exponent)) != MP_OKAY) { goto __ERR; }
/* multiply it by b */
if ((err = mpf_mul(&exponent, b, &exponent)) != MP_OKAY) { goto __ERR; }
/* now evaluate it */
err = mpf_exp(&exponent, c);
__ERR: mpf_clear(&exponent);
return err;
}