path: root/lib/libm/csinhl.c

#include <complex.h> // for complex, cimagl, creall, csinhl, I
#include <math.h>    // for coshl, cosl, sinhl, sinl

long double complex csinhl(long double complex z)
{
	long double x, y;

	x = creall(z);
	y = cimagl(z);

	return sinhl(x) * cosl(y) + (coshl(x) * sinl(y)) * (long double complex)I;
}