Lines Matching refs:y
189 double y, ym1, t; local
191 y = x - one;
192 ym1 = y - one;
193 if (y <= 1.0 + (LEFT + x0)) {
194 yy = ratfun_gam(y - x0, 0);
197 r.a = y;
200 y = ym1;
201 yy.b = r.b = y - yy.a;
203 for (ym1 = y-one; ym1 > LEFT + x0; y = ym1--, yy.a--) {
205 r.b = r.a*yy.b + y*r.b;
211 yy = ratfun_gam(y - x0, 0);
212 y = r.b*(yy.a + yy.b) + r.a*yy.b;
213 y += yy.a*r.a;
214 return (y);
281 double y, z; local
283 y = floor(x + .5);
284 if (y == x) /* Negative integer. */
286 z = fabs(x - y);
287 y = .5*ceil(x);
288 if (y == ceil(y))
298 y = one - x; /* exact: 128 < |x| < 255 */
299 lg = large_gam(y);
303 y = -(lg.a + lg.b);
304 z = (y + lg.a) + lg.b;
305 y = __exp__D(y, z);
306 if (sgn < 0) y = -y;
307 return (y);
309 y = one-x;
310 if (one-y == x)
311 y = tgamma(y);
313 y = -x*tgamma(-x);
314 if (sgn < 0) y = -y;
315 return (M_PI / (y*z));