ccos.c « complex « src « musl « libc-top-half - wasi-libc - debian 12 backports: mozilla

summary refs log tree commit diff stats

path: root/libc-top-half/musl/src/complex/ccos.c

blob: f32e1fadfbf3439f0d804013f2235bf4bf2497a0 (plain)

#include "complex_impl.h"

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

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