blob: 71ed3fb30b0175537f2125a91739e7ffdce94f1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
$NetBSD: patch-aj,v 1.1 1998/09/05 22:02:20 garbled Exp $
--- scripts/stats-full.orig Sat Sep 5 11:56:46 1998
+++ scripts/stats-full Sat Sep 5 11:57:38 1998
@@ -85,10 +85,10 @@
$sum += @vals[$i];
$sumsq += @vals[$i]*@vals[$i];
}
-
+# XXX count -1 ???
$count -= 2*$tailsize;
$avg = $sum/$count;
-$std = (1/($count - 1)) * ($sumsq - 2*$avg*$sum + $count*$avg*$avg);
+$std = (1/($count)) * ($sumsq - 2*$avg*$sum + $count*$avg*$avg);
$std = sqrt($std);
printf("%f (std. %f, %.2f%%) [median %f]\n",$avg,$std,100*$std/$avg,$median);
|