summaryrefslogblamecommitdiff
path: root/src/complex/ccos.c
blob: 5754c23828e6194b796a004a1709f3d04de97342 (plain) (tree)
1
2
3
4
5
6
7
8







                                                 
#include "libm.h"

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

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