blob: 55b857cefea37b6dc21942ef6af75c8c5df21a0b (
plain) (
tree)
|
|
#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));
}
|