Lines Matching defs:atan
1152 /* atan(x)
1154 * 1. Reduce x to positive by atan(x) = -atan(-x).
1159 * [0,7/16] atan(x) = t-t^3*(a1+t^2*(a2+...(a10+t^2*a11)...)
1160 * [7/16,11/16] atan(x) = atan(1/2) + atan( (t-0.5)/(1+t/2) )
1161 * [11/16.19/16] atan(x) = atan( 1 ) + atan( (t-1)/(1+t) )
1162 * [19/16,39/16] atan(x) = atan(3/2) + atan( (t-1.5)/(1+1.5t) )
1163 * [39/16,INF] atan(x) = atan(INF) + atan( -1/t )
1171 double atan(double x) {
1173 4.63647609000806093515e-01, /* atan(0.5)hi 0x3FDDAC67, 0x0561BB4F */
1174 7.85398163397448278999e-01, /* atan(1.0)hi 0x3FE921FB, 0x54442D18 */
1175 9.82793723247329054082e-01, /* atan(1.5)hi 0x3FEF730B, 0xD281F69B */
1176 1.57079632679489655800e+00, /* atan(inf)hi 0x3FF921FB, 0x54442D18 */
1180 2.26987774529616870924e-17, /* atan(0.5)lo 0x3C7A2B7F, 0x222F65E2 */
1181 3.06161699786838301793e-17, /* atan(1.0)lo 0x3C81A626, 0x33145C07 */
1182 1.39033110312309984516e-17, /* atan(1.5)lo 0x3C700788, 0x7AF0CBBD */
1183 6.12323399573676603587e-17, /* atan(inf)lo 0x3C91A626, 0x33145C07 */
1305 if (((hx - 0x3FF00000) | lx) == 0) return atan(y); /* x=1.0 */
1313 return y; /* atan(+-0,+anything)=+-0 */
1315 return pi + tiny; /* atan(+0,-anything) = pi */
1317 return -pi - tiny; /* atan(-0,-anything) =-pi */
1328 return pi_o_4 + tiny; /* atan(+INF,+INF) */
1330 return -pi_o_4 - tiny; /* atan(-INF,+INF) */
1332 return 3.0 * pi_o_4 + tiny; /*atan(+INF,-INF)*/
1334 return -3.0 * pi_o_4 - tiny; /*atan(-INF,-INF)*/
1339 return zero; /* atan(+...,+INF) */
1341 return -zero; /* atan(-...,+INF) */
1343 return pi + tiny; /* atan(+...,-INF) */
1345 return -pi - tiny; /* atan(-...,-INF) */
1360 z = atan(fabs(y / x)); /* safe to do y/x */
1364 return z; /* atan(+,+) */
1366 return -z; /* atan(-,+) */
1368 return pi - (z - pi_lo); /* atan(+,-) */
1370 return (z - pi_lo) - pi; /* atan(-,-) */
