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