Histogram improvements

diff --git a/c/goertzel/histogram.pl b/c/goertzel/histogram.pl
index c27f28c6e8da08f39d757fda0a325c23ccbbc567..0a8ccb37ba437a1a34712d4fdbd59386b82e92d5 100755 (executable)
--- a/c/goertzel/histogram.pl
+++ b/c/goertzel/histogram.pl
@@ -29,7 +29,7 @@ while(<STDIN>) {
        my $i=0;
        print "\033[H";
        foreach my $i (1..$#values) {
-               print bar($values[$i],10,sprintf("%8s ",trim($header[$i])))."\n";
+               print bar($values[$i],50,sprintf("%8s ",trim($header[$i])))."\n";
        }
        print "Time: ".$values[0]."                   \n";
        print "                           \n";

diff --git a/c/goertzel/histogram.sh b/c/goertzel/histogram.sh
index ac26b7e76797067365b128fb6d75ec8ad1cf1042..e8576afc4c2a28532775c816ca55a03b750f9bf0 100755 (executable)
--- a/c/goertzel/histogram.sh
+++ b/c/goertzel/histogram.sh
@@ -1,2 +1,2 @@
 #!/bin/sh
-./goertzel -f 10 -f 20 -f 40 -f 60 -f 100 -f 200 -f 300 -f 400 -f 500 -f 1000 -f 2000 -f 4000 -f 6100 -f 10000 -f 20000 2>/dev/null | ./histogram.pl
+./goertzel -f 10 -f 20 -f 40 -f 60 -f 100 -f 200 -f 300 -f 400 -f 500 -f 1000 -f 2000 -f 4000 -f 6100 -f 10000 -f 20000 $@ 2>/dev/null | ./histogram.pl