Lines Matching refs:t1
34 * t1*y1+((x-y)*(x-y)+(t1*y2+t2*y))
35 * where t1 = 2x with lower 32 bits cleared, t2 = 2x-t1,
56 double a=x,b=y,t1,t2,y1,y2,w;
88 t1=0;
89 SET_HIGH_WORD(t1,0x7fd00000); /* t1=2^1022 */
90 b *= t1;
91 a *= t1;
104 t1 = 0;
105 SET_HIGH_WORD(t1,ha);
106 t2 = a-t1;
107 w = sqrt(t1*t1-(b*(-b)-t2*(a+t1)));
113 t1 = 0;
114 SET_HIGH_WORD(t1,ha+0x00100000);
115 t2 = a - t1;
116 w = sqrt(t1*y1-(w*(-w)-(t1*y2+t2*b)));
120 t1 = 1.0;
121 GET_HIGH_WORD(high,t1);
122 SET_HIGH_WORD(t1,high+(k<<20));
123 return t1*w;
