Lines Matching refs:y
188 double y, ym1, t; local
190 y = x - one;
191 ym1 = y - one;
192 if (y <= 1.0 + (LEFT + x0)) {
193 yy = ratfun_gam(y - x0, 0);
196 r.a = y;
199 y = ym1;
200 yy.b = r.b = y - yy.a;
202 for (ym1 = y-one; ym1 > LEFT + x0; y = ym1--, yy.a--) {
204 r.b = r.a*yy.b + y*r.b;
210 yy = ratfun_gam(y - x0, 0);
211 y = r.b*(yy.a + yy.b) + r.a*yy.b;
212 y += yy.a*r.a;
213 return (y);
280 double y, z; local
282 y = ceil(x);
283 if (y == x) /* Negative integer. */
285 z = y - x;
288 y = 0.5 * y;
289 if (y == ceil(y))
299 y = one - x; /* exact: 128 < |x| < 255 */
300 lg = large_gam(y);
304 y = -(lg.a + lg.b);
305 z = (y + lg.a) + lg.b;
306 y = __exp__D(y, z);
307 if (sgn < 0) y = -y;
308 return (y);
310 y = one-x;
311 if (one-y == x)
312 y = tgamma(y);
314 y = -x*tgamma(-x);
315 if (sgn < 0) y = -y;
316 return (M_PI / (y*z));