xref: /aosp_15_r20/external/musl/src/complex/cacos.c (revision c9945492fdd68bbe62686c5b452b4dc1be3f8453)
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 
cacos(double complex z)7 double complex cacos(double complex z)
8 {
9 	z = casin(z);
10 	return CMPLX(M_PI_2 - creal(z), -cimag(z));
11 }
12