X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Fnp.c;h=598c05e84b22ce1536d0e98051031518158779e4;hb=24c5f7c629e68801492d7ca1766953a2a954a820;hp=b631820903e6ebf4e41a536ebe7ea964924af918;hpb=f550aee00a62fe1d8baf62d83cd7efef6cc2ee92;p=pspp diff --git a/src/math/np.c b/src/math/np.c index b631820903..598c05e84b 100644 --- a/src/math/np.c +++ b/src/math/np.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2008, 2009 Free Software Foundation, Inc. + Copyright (C) 2008, 2009, 2011 Free Software Foundation, Inc. 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 @@ -15,20 +15,21 @@ along with this program. If not, see . */ #include -#include "np.h" + +#include "math/np.h" #include #include #include -#include -#include -#include -#include -#include -#include +#include "data/case.h" +#include "data/casewriter.h" +#include "libpspp/cast.h" +#include "libpspp/compiler.h" +#include "libpspp/misc.h" +#include "math/moments.h" -#include "xalloc.h" +#include "gl/xalloc.h" static void destroy (struct statistic *stat) @@ -71,9 +72,8 @@ acc (struct statistic *s, const struct ccase *cx UNUSED, } struct np * -np_create (const struct moments1 *m) +np_create (double n, double mean, double var) { - double variance; struct np *np = xzalloc (sizeof (*np)); struct order_stats *os = &np->parent; struct statistic *stat = &os->parent; @@ -82,9 +82,10 @@ np_create (const struct moments1 *m) np->prev_cc = 0; - moments1_calculate (m, &np->n, &np->mean, &variance, NULL, NULL); + np->n = n; + np->mean = mean; - np->stddev = sqrt (variance); + np->stddev = sqrt (var); np->y_min = np->ns_min = np->dns_min = DBL_MAX; np->y_max = np->ns_max = np->dns_max = -DBL_MAX;