10 lines
142 B
C
10 lines
142 B
C
#include "libm.h"
|
|
|
|
/* acosh(z) = i acos(z) */
|
|
|
|
double complex cacosh(double complex z)
|
|
{
|
|
z = cacos(z);
|
|
return CMPLX(-cimag(z), creal(z));
|
|
}
|