[Pspp-cvs] pspp/src/math moments.c

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/02/05 21:15:18

Modified files:
        src/math       : moments.c 

Log message:
        Remove potentially misleading citation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/math/moments.c?cvsroot=pspp&r1=1.3&r2=1.4

Patches:
Index: moments.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/math/moments.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- moments.c   15 Dec 2006 00:16:03 -0000      1.3
+++ moments.c   5 Feb 2007 21:15:18 -0000       1.4
@@ -43,11 +43,7 @@
 
   if (max_moment >= MOMENT_VARIANCE && w > 1.) 
     {
-      double s2;
-
-      /* From _Numerical Recipes in C_, 2nd ed., 0-521-43108-5,
-         section 14.1. */
-      s2 = (d2 - pow2 (d1) / w) / (w - 1.);
+      double s2 = (d2 - pow2 (d1) / w) / (w - 1.);
       if (variance != NULL)
         *variance = s2;