gonzui

t2ex

bsd_source/lib/libc/src_bsd/complex/s_casinf.c - 3.5KB - 132 lines

65:         x = crealf(z);
66:         y = cimagf(z);
67: 
123:         zz = (x - y) * (x + y) + (2.0f * x * y) * I;
124:         zz = 1.0f - crealf(zz) - cimagf(zz) * I;
125:         z2 = csqrtf (zz);