blob: 6e36572f3d0185703baf2dc166f114d95c3d230e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#include "__complex.h" // for M_IVLN10
#include <complex.h> // for complex, cabs, cimag, creal, I
#include <math.h> // for atan2, log10
double complex clog10(double complex z)
{
double p, rr;
rr = cabs(z);
p = log10(rr);
rr = atan2(cimag(z), creal(z)) * M_IVLN10;
return p + rr * (double complex)I;
}
|
