lib/libm/cacos.c


1
2
3
4
5
6
7
8

#include <complex.h> // for complex, cacos, casin, cimag, creal, I
#include <math.h>    // for M_PI_2

double complex cacos(double complex z)
{
	double complex w = casin(z);
	return (M_PI_2 - creal(w)) - cimag(w) * I;
}