Sign in
chromium
/
external
/
github.com
/
WebAssembly
/
musl
/
5b546faa67544af395d6407553762b37e9711157
/
.
/
src
/
complex
/
ctan.c
blob: c09263744b869b92e03fc5c956a18178b089d655 [
file
] [
log
] [
blame
]
#include
"libm.h"
/* tan(z) = -i tanh(i z) */
double
complex ctan
(
double
complex z
)
{
z
=
ctanh
(
CMPLX
(-
cimag
(
z
),
creal
(
z
)));
return
CMPLX
(
cimag
(
z
),
-
creal
(
z
));
}