clog.c raw

   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  }
  15