X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Fgsl-extras%2Fpoisson.c;h=7db5df10f42167dd4a7e45516a6630f0e335a710;hb=d22c3971e926ceaf62416c6482fe0fb1dc5407f0;hp=7284666d7f7988d77048bd65e164394cc6996a42;hpb=4fdeb2145d081ff1b84e3f6c99f9d1c048c0d64a;p=pspp diff --git a/lib/gsl-extras/poisson.c b/lib/gsl-extras/poisson.c index 7284666d7f..7db5df10f4 100644 --- a/lib/gsl-extras/poisson.c +++ b/lib/gsl-extras/poisson.c @@ -26,13 +26,12 @@ * * where Y is a gamma random variable with parameters k+1 and 1. * - * Reference: - * + * Reference: + * * W. Feller, "An Introduction to Probability and Its * Applications," volume 1. Wiley, 1968. Exercise 46, page 173, * chapter 6. */ -#include #include #include #include @@ -47,7 +46,7 @@ gslextras_cdf_poisson_P (const long k, const double lambda) { double P; double a; - + if ( lambda <= 0.0 ) { GSLEXTRAS_CDF_ERROR ("lambda <= 0", GSL_EDOM); @@ -72,7 +71,7 @@ gslextras_cdf_poisson_Q (const long k, const double lambda) { double P; double a; - + if ( lambda <= 0.0 ) { GSLEXTRAS_CDF_ERROR ("lambda <= 0", GSL_EDOM);