Sign in
cobalt
/
cobalt
/
25399f97090f8a86f56525c38486080cb2747250
/
.
/
src
/
third_party
/
musl
/
src
/
complex
/
ccos.c
blob: 645aec29a9dc013de43e3bb4bfed7d36d671a39b [
file
] [
log
] [
blame
]
#include
"libm.h"
/* cos(z) = cosh(i z) */
double
complex ccos
(
double
complex z
)
{
return
ccosh
(
CMPLX
(-
cimag
(
z
),
creal
(
z
)));
}