X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Fgsl-extras%2Fbinomial.c;h=56c41de9bf864e432651f5bd222839057a9bc22d;hb=d22c3971e926ceaf62416c6482fe0fb1dc5407f0;hp=e053c3a67ea0fbebd2e43fe395cb938fbc51a99d;hpb=4f71ffe74a94ea89787705f1ba12a3dd810adda5;p=pspp diff --git a/lib/gsl-extras/binomial.c b/lib/gsl-extras/binomial.c index e053c3a67e..56c41de9bf 100644 --- a/lib/gsl-extras/binomial.c +++ b/lib/gsl-extras/binomial.c @@ -15,7 +15,7 @@ * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ /* @@ -27,13 +27,12 @@ * * 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. */ -#include #include #include #include @@ -65,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