blob: 12aae9c7e9a02e32f7c68a9a6f98e1218455cca8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#include "libm.h"
// FIXME
/* log(z) = log(|z|) + i arg(z) */
double complex clog(double complex z)
{
double r, phi;
r = cabs(z);
phi = carg(z);
return CMPLX(log(r), phi);
}
|