git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
separate project repository
[barcat.git]
/
graph
diff --git
a/graph
b/graph
index b41f0c08855f1fbd73a17bedfb2ac1c5bfcfdedd..501ac3c24f4ce3a86585c785537320ce3eb532a2 100755
(executable)
--- a/
graph
+++ b/
graph
@@
-5,7
+5,7
@@
use utf8;
use List::Util qw( min max sum );
use open qw( :std :utf8 );
use List::Util qw( min max sum );
use open qw( :std :utf8 );
-our $VERSION = '1.0
0
';
+our $VERSION = '1.0
1
';
use Getopt::Long '2.33', qw( :config gnu_getopt );
sub podexit { require Pod::Usage; Pod::Usage::pod2usage(-exitval => 0, @_) }
use Getopt::Long '2.33', qw( :config gnu_getopt );
sub podexit { require Pod::Usage; Pod::Usage::pod2usage(-exitval => 0, @_) }
@@
-39,9
+39,11
@@
my $size = ($maxval - $minval) &&
($opt{width} - $lenval - $len) / ($maxval - $minval); # bar multiplication
my @barmark;
($opt{width} - $lenval - $len) / ($maxval - $minval); # bar multiplication
my @barmark;
-if ($opt{markers} // 1) {
+if ($opt{markers} // 1
and $size > 0
) {
sub orderpos { (($order[$_[0]] + $order[$_[0] + .5]) / 2 - $minval) * $size }
$barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average
sub orderpos { (($order[$_[0]] + $order[$_[0] + .5]) / 2 - $minval) * $size }
$barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average
+ $barmark[ orderpos($#order * .31731) ] = '>';
+ $barmark[ orderpos($#order * .68269) ] = '<';
$barmark[ orderpos($#order / 2) ] = '+'; # mean
$barmark[ -$minval * $size ] = '|' if $minval < 0; # zero
defined and $opt{color} and $_ = "\e[36m$_\e[0m" for @barmark;
$barmark[ orderpos($#order / 2) ] = '+'; # mean
$barmark[ -$minval * $size ] = '|' if $minval < 0; # zero
defined and $opt{color} and $_ = "\e[36m$_\e[0m" for @barmark;
@@
-59,7
+61,7
@@
for my $nr (0 .. $#lines) {
print "\e[0m" if $color;
}
printf '%-*s', $len, $lines[$nr];
print "\e[0m" if $color;
}
printf '%-*s', $len, $lines[$nr];
- print $barmark[$_] // '-' for 1 .. (($val || 0) - $minval) * $size;
+ print $barmark[$_] // '-' for 1 ..
$size &&
(($val || 0) - $minval) * $size;
say '';
}
say '';
}
@@
-112,9
+114,20
@@
the sum of all values divided by the number of counted lines.
=item B<+>
=item B<+>
-Median:
+Me
an, me
dian:
the middle value or average between middle values.
the middle value or average between middle values.
+=item B<<>
+
+Standard deviation left of the mean.
+Only 16% of all values are lower.
+
+=item B<< > >>
+
+Standard deviation right of the mean.
+The part between B<< <--> >> encompass all I<normal> results,
+or 68% of all entries.
+
=back
=item -w, --width=<columns>
=back
=item -w, --width=<columns>