From: Martin Mares <mj@ucw.cz>
Date: Sat, 21 Jun 2003 14:34:04 +0000 (+0000)
Subject: A simple averaging tool.
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=c9c0e7ca24f3c55779775fc07903fe25145475f0;p=netgrind.git

A simple averaging tool.
---

diff --git a/post/average b/post/average
new file mode 100755
index 0000000..0da1f68
--- /dev/null
+++ b/post/average
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+# Simple averages and medians
+# (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
+
+use strict;
+use warnings;
+
+`sort >avg.tmp`; $? && die;
+open I, "avg.tmp" or die;
+my $n = 0;
+my $sum = 0;
+my $max = 0;
+my $min;
+while (<I>) {
+	chomp;
+	$n++;
+	$sum += $_;
+	$max = $_;
+	$min = $_ if !defined $min;
+}
+$n || die "No data found";
+seek(I, 0, 0);
+my $median = 0;
+for (my $i=0; $i<$n/2; $i++) {
+	$median = <I>;
+	chomp $median;
+}
+my $avg = $sum/$n;
+my $qsum = 0;
+seek (I, 0, 0);
+while (<I>) {
+	chomp;
+	my $d = $_ - $avg;
+	$qsum += $d*$d;
+}
+my $var = $qsum/$n;
+my $stdd = sqrt($var);
+printf "Number of records:	%d\n", $n;
+printf "Average:		%.3f\n", $avg;
+printf "Variance:		%.3f\n", $var;
+printf "Std. deviation:		%.3f\n", $stdd;
+printf "Median:			%.3f\n", $median;
+printf "Minimum:		%.3f\n", $min;
+printf "Maximum:		%.3f\n", $max;
+;
diff --git a/post/graph-hist-ip b/post/graph-hist-ip
index 2c8ca40..82bc561 100755
--- a/post/graph-hist-ip
+++ b/post/graph-hist-ip
@@ -57,8 +57,8 @@ set mxtics 3600
 plot	"$datafile" using 1:3 title "All IP packets", \\
 	"$datafile" using 1:4 title "Bad IP header", \\
 	"$datafile" using 1:5 title "Non-TCP", \\
-	"$datafile" using 1:6 title "Fragmented TCP", \\
-	"$datafile" using 1:7 title "Processed TCP"
+	"$datafile" using 1:6 title "Processed TCP", \\
+	"$datafile" using 1:7 title "Fragmented TCP"
 EOF
 ;
 close GP;
diff --git a/post/graph-http-len b/post/graph-http-len
index 2549144..528e574 100755
--- a/post/graph-http-len
+++ b/post/graph-http-len
@@ -50,7 +50,7 @@ set format x "%d/%m\\n%H:%M"
 set logscale y 2
 #set xtics 86400
 set mxtics 3600
-plot	"$datafile" using 1:3 title "Size"
+plot	[] [1:] "$datafile" using 1:3 title "Size"
 EOF
 ;
 close GP;