Lines Matching refs:gr
744 PetscReal gr; in PetscDTJacobiNorm() local
753 …gr = PetscExpReal(PetscLGamma(alpha + 1.) + PetscLGamma(beta + 1.) - PetscLGamma(alpha + beta + 2.… in PetscDTJacobiNorm()
755 …gr = PetscExpReal(PetscLGamma(n + alpha + 1.) + PetscLGamma(n + beta + 1.) - (PetscLGamma(n + 1.) … in PetscDTJacobiNorm()
763 gr = n ? (1. / (n + n + alpha + beta + 1.)) : 1.; in PetscDTJacobiNorm()
766 for (i = 0; i < alphai; i++) gr *= (i + 1.) / (beta + i + 1.); in PetscDTJacobiNorm()
767 gr /= (alpha + beta + 1.); in PetscDTJacobiNorm()
769 for (i = 0; i < alphai; i++) gr *= (n + i + 1.) / (n + beta + i + 1.); in PetscDTJacobiNorm()
773 for (i = 0; i < betai; i++) gr *= (i + 1.) / (alpha + i + 2.); in PetscDTJacobiNorm()
774 gr /= (alpha + beta + 1.); in PetscDTJacobiNorm()
776 for (i = 0; i < betai; i++) gr *= (n + i + 1.) / (n + alpha + i + 1.); in PetscDTJacobiNorm()
781 *norm = PetscSqrtReal(twoab1 * gr); in PetscDTJacobiNorm()