Lines Matching refs:one
169 * imag part = log(y+sqrt(y*y-one))
202 one = 1.0,
299 D_IM(ans) = log(x + sqrt((x - one) * (x +
300 one)));
302 xm1 = x - one;
303 D_IM(ans) = log1p(xm1 + sqrt(xm1 * (x + one)));
306 } else if (y <= E * fabs(x - one)) { /* region 2: y < tiny*|x-1| */
309 D_IM(ans) = y / sqrt((one + x) * (one - x));
315 D_IM(ans) = log(x + sqrt((x - one) * (x +
316 one)));
318 D_IM(ans) = log1p((x - one) + sqrt((x - one) *
319 (x + one)));
325 } else if (E * y - one >= x) { /* region 4 */
335 A = sqrt(one + y * y);
343 xp1 = x + one;
344 xm1 = x - one;
354 if (x <= one)
363 if (x < one)
367 D_IM(ans) = log1p(Am1 + sqrt(Am1 * (A + one)));
369 D_IM(ans) = log(A + sqrt(A * A - one));