1 2 3 4 5 6 7 8 9
#include "libm.h" /* acosh(z) = i acos(z) */ double complex cacosh(double complex z) { z = cacos(z); return CMPLX(-cimag(z), creal(z)); }