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