gonzui

t2ex

bsd_source/lib/libc/src_bsd/complex/s_ctan.c - 3.8KB - 165 lines

99:         x = fabs (2.0 * creal (z));
100:         y = fabs (2.0 * cimag(z));
101: 
142: 
143:         d = cos (2.0 * creal (z)) + cosh (2.0 * cimag (z));
144: 
153: 
154:         w = sin (2.0 * creal(z)) / d + (sinh (2.0 * cimag(z)) / d) * I;
155:         return (w);