Sign in
cobalt
/
cobalt
/
refs/heads/master
/
.
/
third_party
/
musl
/
src
/
complex
/
cacosh.c
blob: 76127f75f4bb1b4369bf98d209c0089e2ff86bca [
file
] [
log
] [
blame
]
#include
"complex_impl.h"
/* acosh(z) = i acos(z) */
double
complex cacosh
(
double
complex z
)
{
int
zineg
=
signbit
(
cimag
(
z
));
z
=
cacos
(
z
);
if
(
zineg
)
return
CMPLX
(
cimag
(
z
),
-
creal
(
z
));
else
return
CMPLX
(-
cimag
(
z
),
creal
(
z
));
}