Lines Matching defs:yd
895 mpfr_t yd, yu, zd, zu;
906 mpfr_inits2 (p2, yd, yu, (mpfr_ptr) 0);
907 inexd = mpfr_lgamma (yd, &sign, x, MPFR_RNDD);
908 mpfr_set (yu, yd, MPFR_RNDN); /* exact */
912 mpfr_exp (yd, yd, MPFR_RNDD);
925 mpfr_neg (yd, yd, MPFR_RNDN); /* exact */
927 mpfr_swap (yd, yu);
929 /* yd < Gamma(x) < yu (strict inequalities since x != 1 and x != 2) */
951 inexu = mpfr_gamma (zu, x, MPFR_RNDU); /* zu >= Gamma(x) > yd */
954 if (! mpfr_greater_p (zu, yd) || inexu < 0 ||
960 printf ("yd = ");
961 mpfr_dump (yd);
990 mpfr_clears (yd, yu, zd, zu, (mpfr_ptr) 0);