github.com/afumu/libc@v0.0.6/musl/src/complex/clog.c (about)

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