cacos.c raw

   1  #include "complex_impl.h"
   2  
   3  // FIXME: Hull et al. "Implementing the complex arcsine and arccosine functions using exception handling" 1997
   4  
   5  /* acos(z) = pi/2 - asin(z) */
   6  
   7  double complex cacos(double complex z)
   8  {
   9  	z = casin(z);
  10  	return CMPLX(M_PI_2 - creal(z), -cimag(z));
  11  }
  12