Sign in
cobalt
/
cobalt
/
0c2b1d4428f8ae16220e86a16bebd07ff691a412
/
.
/
third_party
/
musl
/
src
/
complex
/
csin.c
blob: ad8ae67ad99a59983cd00b6fbd5fe83b2071e667 [
file
] [
log
] [
blame
]
#include
"libm.h"
/* sin(z) = -i sinh(i z) */
double
complex csin
(
double
complex z
)
{
z
=
csinh
(
CMPLX
(-
cimag
(
z
),
creal
(
z
)));
return
CMPLX
(
cimag
(
z
),
-
creal
(
z
));
}