gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_atan2.c - 4.5KB - 132 lines

69:            return x+y;
70:         if(((hx-0x3ff00000)|lx)==0) return atan(y);   /* x=1.0 */
71:         m = ((hy>>31)&1)|((hx>>30)&2); /* 2*sign(x)+sign(y) */
109:         else if(hx<0&&k<-60) z=0.0;    /* |y|/x < -2**60 */
110:         else z=atan(fabs(y/x));                /* safe to do y/x */
111:         switch (m) {