summaryrefslogtreecommitdiffstats
path: root/libc-top-half/musl/src/complex/ccos.c
blob: f32e1fadfbf3439f0d804013f2235bf4bf2497a0 (plain)
1
2
3
4
5
6
7
8
#include "complex_impl.h"

/* cos(z) = cosh(i z) */

double complex ccos(double complex z)
{
	return ccosh(CMPLX(-cimag(z), creal(z)));
}