Lines Matching refs:one
169 * imag part = log(y+sqrt(y*y-one))
201 one = 1.0,
327 D_IM(ans) = log(x + sqrt((x - one) * (x +
328 one)));
330 xm1 = x - one;
331 D_IM(ans) = log1p(xm1 + sqrt(xm1 * (x + one)));
334 } else if (y <= E * fabs(x - one)) { /* region 2: y < tiny*|x-1| */
337 D_IM(ans) = y / sqrt((one + x) * (one - x));
342 t = sqrt((x - one) * (x + one));
347 D_IM(ans) = log1p((x - one) + t);
353 } else if (E * y - one >= x) { /* region 4 */
364 A = sqrt(one + y * y);
371 xp1 = x + one;
372 xm1 = x - one;
381 if (x <= one)
390 if (x < one)
394 D_IM(ans) = log1p(Am1 + sqrt(Am1 * (A + one)));
396 D_IM(ans) = log(A + sqrt(A * A - one));