[wasi-libc.git] / libc-top-half / musl / src / complex / casinh.c

#include "complex_impl.h"

/* asinh(z) = -i asin(i z) */

double complex casinh(double complex z)
{
	z = casin(CMPLX(-cimag(z), creal(z)));
	return CMPLX(cimag(z), -creal(z));
}
Commit	Line	Data
d4db3fa2	1	#include "complex_impl.h"
320054e8 DG	2
	3	/* asinh(z) = -i asin(i z) */
	4
	5	double complex casinh(double complex z)
	6	{
	7	z = casin(CMPLX(-cimag(z), creal(z)));
	8	return CMPLX(cimag(z), -creal(z));
	9	}