Lines Matching defs:R
50 * erf(x) = x + x*R(x^2)
52 * = 0.5 + ((0.5-x)-x*R) if x in [0.25,0.84375]
53 * where R = P/Q where P is an odd poly of degree 8 and
56 * | R - (erf(x)-x)/x | <= 2
102 * To compute exp(-x*x-0.5625+R/S), let s be a single
105 * exp(-x*x-0.5626+R/S) =
106 * exp(-s*s-0.5625)*exp((s-x)*(s+x)+R/S);
284 double R, S, P, Q, s, y, z, r;
330 R = ra0 + s * (ra1 + s * (ra2 + s * (ra3 + s * (ra4 +
335 R = rb0 + s * (rb1 + s * (rb2 + s * (rb3 + s * (rb4 +
342 r = exp(-z * z - 0.5625) * exp((z - x) * (z + x) + R / S);
352 double R, S, P, Q, s, y, z, r;
399 R = ra0 + s * (ra1 + s * (ra2 + s * (ra3 + s * (ra4 +
408 R = rb0 + s * (rb1 + s * (rb2 + s * (rb3 + s * (rb4 +
415 r = exp(-z * z - 0.5625) * exp((z - x) * (z + x) + R / S);