X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Fgsl-extras%2Fbinomial.c;h=847247d40771b3c97c4e8966123686cc4c691631;hb=436b01ace5b84c27963f6130dca0e69fe15f9a17;hp=7736320d8bb106779354abddc229291f46c7223e;hpb=ebccf00cbddbcadb5883fa98ddbccbea67642295;p=pspp-builds.git diff --git a/lib/gsl-extras/binomial.c b/lib/gsl-extras/binomial.c index 7736320d..847247d4 100644 --- a/lib/gsl-extras/binomial.c +++ b/lib/gsl-extras/binomial.c @@ -1,7 +1,7 @@ /* cdf/binomial.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 @@ -27,8 +27,8 @@ * * where Y is a beta random variable with parameters k+1 and n-k. * - * Reference: - * + * Reference: + * * W. Feller, "An Introduction to Probability and Its * Applications," volume 1. Wiley, 1968. Exercise 45, page 173, * chapter 6. @@ -64,7 +64,7 @@ gslextras_cdf_binomial_P(const long k, const long n, const double p) b = (double) n - k; P = gsl_cdf_beta_Q( p, a, b); } - + return P; } double