Lines Matching refs:t1
33 * t1*y1+((x-y)*(x-y)+(t1*y2+t2*y))
34 * where t1 = 2x with lower 32 bits cleared, t2 = 2x-t1,
57 double a,b,t1,t2,y1,y2,w;
90 t1=0;
91 SET_HIGH_WORD(t1,0x7fd00000); /* t1=2^1022 */
92 b *= t1;
93 a *= t1;
106 t1 = 0;
107 SET_HIGH_WORD(t1,ha);
108 t2 = a-t1;
109 w = sqrt(t1*t1-(b*(-b)-t2*(a+t1)));
115 t1 = 0;
116 SET_HIGH_WORD(t1,ha+0x00100000);
117 t2 = a - t1;
118 w = sqrt(t1*y1-(w*(-w)-(t1*y2+t2*b)));
122 t1 = 1.0;
123 GET_HIGH_WORD(high,t1);
124 SET_HIGH_WORD(t1,high+(k<<20));
125 return t1*w;