gonzui

t2ex

bsd_source/lib/libc/src_bsd/complex/s_ctanf.c - 3.4KB - 148 lines

91: 
92:         x = fabsf(2.0f * crealf(z));
93:         y = fabsf(2.0f * cimagf(z));
135: 
136:         d = cosf( 2.0f * crealf(z) ) + coshf( 2.0f * cimagf(z) );
137: 
145:         }
146:         w = sinf (2.0f * crealf(z)) / d + (sinhf (2.0f * cimagf(z)) / d) * I;
147:         return (w);