Home | History | Annotate | Download | only in contrib

Lines Matching refs:U2

76 E0                      L    Milestone          U2
988 FLOAT OneUlp, UfThold, U1, U2;
1004 /*U2 gap above 1.0, i.e, 1.0+U2 is next number above 1.0 */
1064 U2 = "0.001";
1145 U2 = Radix * U1;
1152 E9 = U2;
1160 if (X < U2)
1161 X = U2;
1166 U2 = X;
1167 Y = Half * U2 + ThirtyTwo * U2 * U2;
1171 while (!((U2 <= X) || (X <= Zero)));
1173 /*... now U2 == 1 ulp of 1 + ... */
1201 Radix = FLOOR (FLOAT ("0.01") + U2 / U1);
1221 X = One + U2;
1228 BMinusU2 = (BMinusU2 - U2) + One;
1253 TstCond (Serious, U2 * Nine * Nine * TwoForty < One,
1300 if ((Z1 != U1) || (Z2 != U2))
1302 if ((Z1 >= U1) || (Z2 >= U2))
1307 printf ("\tU2 = %s, Z2 - U2 = %s\n", U2.str(), (Z2 - U2).str());
1321 Y = Z2 / U2;
1346 T = Z + U2;
1348 TstCond (Failure, X == U2,
1350 if (X == U2)
1359 X = One + U2;
1363 X = X - Radix * U2;
1365 T = T - Radix * U2;
1375 Z = Radix * U2;
1377 Y = FABS ((X + Z) - X * X) - U2;
1378 X = One - U2;
1379 Z = FABS ((X - U2) - X * X) - U1;
1382 Y = One - U2;
1383 X = One + U2;
1397 X = One + U2;
1407 X = One / (One + U2);
1410 X = One - U2;
1411 Y = One + Radix * U2;
1423 T = Radix - U2;
1426 if ((X == U1) && (Y == U1) && (Z == U2) && (T == U2))
1484 Y2 = One + U2;
1485 Y1 = One - U2;
1486 X = OneAndHalf - U2;
1487 Y = OneAndHalf + U2;
1488 Z = (X - U2) * Y2;
1493 Y = (Y + U2) * Y1;
1498 X = (OneAndHalf + U2) * Y2;
1499 Y = OneAndHalf - U2 - U2;
1500 Z = OneAndHalf + U2 + U2;
1501 T = (OneAndHalf - U2) * Y1;
1502 X = X - (Z + U2);
1506 Y = (U2 - Y) + StickyBit;
1507 Z = S - (Z + U2 + U2);
1508 StickyBit = (Y2 + U2) * Y1;
1518 else if ((X + U2 == Zero) && (Y < Zero) && (Z + U2 == Zero)
1519 && (T < Zero) && (StickyBit + U2 == Zero) && (Y1 < Half))
1534 Y2 = One + U2;
1535 Y1 = One - U2;
1536 Z = OneAndHalf + U2 + U2;
1538 T = OneAndHalf - U2 - U2;
1539 Y = (T - U2) / Y1;
1540 Z = (Z + U2) / Y2;
1544 Z = Z - (OneAndHalf + U2);
1545 T = (U2 - OneAndHalf) + T;
1549 Y = OneAndHalf - U2;
1550 Z = OneAndHalf + U2;
1554 T = T - (Z + U2);
1557 Y1 = (Y2 + U2) / Y2;
1585 && ((BMinusU2 + U2) - One == Radix - One),
1588 Y = One + U2 * (One - U2);
1599 X = (Half + U2) * U2;
1600 Y = (Half - U2) * U2;
1603 X = (One + U2) - X;
1607 X = (Half + U2) * U1;
1608 Y = (Half - U2) * U1;
1630 Y = (One + U2) * Half;
1645 X = (Half + U1) * U2;
1646 Y = Half * U2;
1649 if ((Z - One <= Zero) && (T - One >= U2))
1653 if ((Z - T >= U2) && (Y - T == Zero))
1666 Z = (One + U2) * OneAndHalf;
1667 T = (OneAndHalf + U2) - Z + U2;
1669 Y = One + Radix * U2;
1671 if (T == Zero && X + Radix * U2 - Z == Zero)
1675 X = Two + U2;
1718 Random2 = (U2 + U1) + One;
1721 Z9 = (One + Half / Three) * ((U2 + U1) + One) - (One + Half /
1722 Three) * ((U2 + U1) +
1740 OneUlp = U2;
1761 OneUlp = X * U2;
1775 Z = Radix + Radix * U2;
1805 X = Y - U2;
1806 Z = Y + U2;
1872 E9 = U2;
1877 E9 = Radix * U2;
2012 Y = Y * (OneAndHalf + U2);
2013 X = CInvrse * (One + U2);
2149 Y = V * (HInvrse * U2 - HInvrse);
2150 Z = Y + ((One - HInvrse) * U2) * V;
2160 V = Y * (HInvrse * U2 - HInvrse);
2161 V = V + ((One - HInvrse) * U2) * Y;
2266 X = One + U2;
2546 if (FABS (Q9 - Two) < Radix * U2)