blob: 6f10a115bee6b0c2d644f9ec42f080dfb8f99d08 (
plain)
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 cpack(log(r), phi);
}
|