Print raw numbers, not just rates.

[bursty] / summarize.pl

diff --git a/summarize.pl b/summarize.pl
index 917c548b3394bfe4221ee3617299442a019b4ef8..050aabb8bd26ebff95f1862fe032cbf24e4e5bb2 100755 (executable)
--- a/summarize.pl
+++ b/summarize.pl
@@ -26,6 +26,7 @@ for my $n (sort { $a <=> $b } keys %buckets) {
 
        my $drop_rate = $num_drops / ($n * $num_bursts);
        my $drop_event_rate = $bursts_with_drops / $num_bursts;
-       printf "%3d: drop_rate %.5f  drop_event_rate %.5f\n",
-               $n, $drop_rate, $drop_event_rate; 
+       printf "%3d: drop_rate %.5f (%4d/%8d)   drop_event_rate %.5f (%3d/%4d)\n",
+               $n, $drop_rate, $num_drops, $n * $num_bursts,
+               $drop_event_rate, $bursts_with_drops, $num_bursts;
 }