projects
/
musl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
3aca0519bac47f6dd3880d642050f1c984b589be
[musl]
/
src
/
complex
/
cacos.c
1
#include "libm.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 cpack(M_PI_2 - creal(z), -cimag(z));
11
}