2d72b580 ^
b69f695a ^
cfbaba79 ^
1
2 3 4 5 6 7 8 9 10 11 12
13
14
#include "complex_impl.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); }