X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=lib%2Fgsl-extras%2Fpoisson.c;h=3ce2bf5a0f554e4f031a53fff3d3b7b43741d07c;hb=1c08d9ea96f931ed4330ad2b432cdf950d5b75bf;hp=6da18aba8ac2e4a18a005ce278d147a08a594da0;hpb=ebccf00cbddbcadb5883fa98ddbccbea67642295;p=pspp-builds.git diff --git a/lib/gsl-extras/poisson.c b/lib/gsl-extras/poisson.c index 6da18aba..3ce2bf5a 100644 --- a/lib/gsl-extras/poisson.c +++ b/lib/gsl-extras/poisson.c @@ -1,7 +1,7 @@ /* cdf/poisson.c * * Copyright (C) 2004 Free Software Foundation, Inc. - * Written by Jason H. Stover. + * * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -26,8 +26,8 @@ * * 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. @@ -46,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); @@ -71,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);