gonzui

t2ex

bsd_source/lib/libc/src_bsd/complex/s_clog.c - 2.2KB - 85 lines

70:         /*rr = sqrt( z->r * z->r  +  z->i * z->i );*/
71:         rr = cabs(z);
72:         p = log(rr);

bsd_source/lib/libc/src_bsd/complex/s_cpow.c - 2.2KB - 84 lines

61:         y = cimag (z);
62:         absa = cabs (a);
63:         if (absa == 0.0) {

bsd_source/lib/libc/src_bsd/complex/s_csqrt.c - 3.8KB - 144 lines

118:         w = x + y * I;
119:         r = cabs(w);
120:         if (x > 0) {