X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fstats.c;h=4727b938e4446091ee43b7ea33ae0d77bc4f3f07;hb=55dee937e22a49d01794ef772076d9f9d84199e9;hp=a52ab402dae4fb12be41b42ba491905b6ab83610;hpb=4944c86a9318bc5b5578ab145a95c116ffd2c9fd;p=pspp

diff --git a/src/stats.c b/src/stats.c
index a52ab402da..4727b938e4 100644
--- a/src/stats.c
+++ b/src/stats.c
@@ -18,12 +18,12 @@
    02111-1307, USA. */
 
 #include <config.h>
-#include <math.h>
 #include "stats.h"
+#include <math.h>
 
 /* Returns the fourth power of its argument. */
 double
-hypercube (double x)
+pow4 (double x)
 {
   x *= x;
   return x * x;
@@ -60,7 +60,7 @@ calc_kurt (const double d[4], double n, double variance)
     (((n + 1) * (n * d[3]
 		 - 4.0 * d[0] * d[2]
 		 + 6.0 * sqr (d[0]) * d[1] / n
-		 - 3.0 * hypercube (d[0]) / sqr (n)))
+		 - 3.0 * pow4 (d[0]) / sqr (n)))
      / ((n - 1.0) * (n - 2.0) * (n - 3.0) * sqr (variance))
      - (3.0 * sqr (n - 1.0))
      / ((n - 2.0) * (n - 3.)));