lib/libm/ccoshl.c


1
2
3
4
5
6
7
8
9
10
11
12

#include <math.h>
#include <complex.h>

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

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

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