X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Fgsl-extras%2Fhypergeometric.c;h=265eae29485af71d7e22ab78578d6cea6e256d64;hb=4ea6e37d180c9412cbcd39afa48a516522e6dd71;hp=7bf466f597229a7edf329fcc5b2d203b8ebad0d1;hpb=4fdeb2145d081ff1b84e3f6c99f9d1c048c0d64a;p=pspp diff --git a/lib/gsl-extras/hypergeometric.c b/lib/gsl-extras/hypergeometric.c index 7bf466f597..265eae2948 100644 --- a/lib/gsl-extras/hypergeometric.c +++ b/lib/gsl-extras/hypergeometric.c @@ -29,7 +29,7 @@ * * References: * - * T. Wu. An accurate computation of the hypergeometric distribution + * T. Wu. An accurate computation of the hypergeometric distribution * function. ACM Transactions on Mathematical Software. Volume 19, number 1, * March 1993. * This algorithm is not used, since it requires factoring the @@ -38,9 +38,8 @@ * time than the algorithm used here. * * W. Feller. An Introduction to Probability Theory and Its Applications, - * third edition. 1968. Chapter 2, section 6. + * third edition. 1968. Chapter 2, section 6. */ -#include #include #include #include @@ -52,7 +51,7 @@ * Pr (X <= k) */ double -gslextras_cdf_hypergeometric_P (const unsigned int k, +gslextras_cdf_hypergeometric_P (const unsigned int k, const unsigned int n0, const unsigned int n1, const unsigned int t) @@ -126,7 +125,7 @@ gslextras_cdf_hypergeometric_P (const unsigned int k, * Pr (X > k) */ double -gslextras_cdf_hypergeometric_Q (const unsigned int k, +gslextras_cdf_hypergeometric_Q (const unsigned int k, const unsigned int n0, const unsigned int n1, const unsigned int t) @@ -154,7 +153,7 @@ gslextras_cdf_hypergeometric_Q (const unsigned int k, P = 0.0; mode = (int) t*n0 / (n0+n1); relerr = 1.0; - + if(k < mode) { i = mode;