lib/libm/ccos.c


1
2
3
4
5
6
7
8
9
10
11
12

#include <math.h>
#include <complex.h>
#include "__complex.h"

double complex ccos(double complex z)
{
	double ch, sh;

	cchsh(cimag(z), &ch, &sh);

	return cos(creal(z)) * ch - (sin(creal(z)) * sh) * I;
}