blob: a410db0e48ba2d1f1f7791441be3d4951c1a0d60 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#include "__complex.h"
long double complex ctanl(long double complex z)
{
long double d = cosl(2.0L * creall(z)) + coshl(2.0L * cimagl(z));
if (fabsl(d) < 0.25L) {
d = ctansl(z);
}
if (d == 0.0L) {
return HUGE_VALL + HUGE_VALL * (long double complex)I;
}
return sinl(2.0L * creall(z)) / d +
(sinhl(2.0L * cimagl(z)) / d) * (long double complex)I;
}
|
