zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-05-06 06:21:16 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

gnuplot supports plots on the y2 axis

Browse Source 
Ignore-this: a18a086b3edf54e33749d3b73243c829

darcs-hash:20090804205010-0cb85-db350da2ced0dd006a7326472bb748e16cbbd658.gz
This commit is contained in:
Dima Kogan 2009-08-04 13:50:10 -07:00
parent d61b9bc2ff
commit 041bdad232
1 changed files with 39 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
driveGnuPlots.pl
View File

@ -11,10 +11,14 @@ my %options = ( "stream" => 1,
GetOptions(\%options, GetOptions(\%options,
"stream!", "stream!",
"lines!", "lines!",
"legend:s@", "legend=s@",
"xlabel:s", "xlabel=s",
"ylabel:s", "ylabel=s",
"title:s"); "y2label=s",
"title=s",
"y2min=f",
"y2max=f",
"y2=i@");
# set up plotting style # set up plotting style
my $style = "points"; my $style = "points";
@ -34,21 +38,32 @@ also
--[no]lines Do [not] draw lines to connect consecutive points --[no]lines Do [not] draw lines to connect consecutive points
--xlabel xxx Set x-axis label --xlabel xxx Set x-axis label
--ylabel xxx Set y-axis label --ylabel xxx Set y-axis label
--y2label xxx Set y2-axis label
--title xxx Set the title of the plot --title xxx Set the title of the plot
--legend xxx Set the label for a curve plot. Give this option multiple times for multiple curves --legend xxx Set the label for a curve plot. Give this option multiple times for multiple curves
--y2min xxx Set the range for the y2 axis. Both or neither of these have to be specified
--y2max xxx Set the range for the y2 axis. Both or neither of these have to be specified
--y2 xxx Plot the data with this index on the y2 axis. These are 0-indexed
OEF OEF
exit(1);
} }
sub Arg { sub Arg {
if ($#ARGV < $_[0]) { if ($#ARGV < $_[0]) {
print "Expected parameter missing...\n\n"; print "Expected parameter missing...\n\n";
usage; usage;
die("Error parsing args\n");
} }
$ARGV[int($_[0])]; $ARGV[int($_[0])];
} }
sub main { sub main {
if( defined $options{"y2min"} && !defined $options{"y2max"} ||
!defined $options{"y2min"} && defined $options{"y2max"} )
{
usage;
die("Both or neither of y2min,y2max should be specified\n");
}
my $argIdx = 0; my $argIdx = 0;
my $numberOfStreams = Arg($argIdx++); my $numberOfStreams = Arg($argIdx++);
print "Will display $numberOfStreams Streams...\n"; print "Will display $numberOfStreams Streams...\n";
@ -72,20 +87,27 @@ sub main {
select((select(PIPE), $| = 1)[0]); select((select(PIPE), $| = 1)[0]);
print PIPE "set xtics\n"; print PIPE "set xtics\n";
print PIPE "set ytics\n"; print PIPE "set ytics\n";
print PIPE "set y2tics\n";
print PIPE "set yrange [". $miny . ":" . $maxy ."]\n"; print PIPE "set yrange [". $miny . ":" . $maxy ."]\n";
print PIPE "set y2range [". $options{"y2min"} . ":" . $options{"y2max"} ."]\n" if $options{"y2max"};
print PIPE "set style data $style\n"; print PIPE "set style data $style\n";
print PIPE "set grid\n"; print PIPE "set grid\n";
print(PIPE "set xlabel \"" . $options{"xlabel"} . "\"\n") if $options{"xlabel"}; print(PIPE "set xlabel \"" . $options{"xlabel" } . "\"\n") if $options{"xlabel"};
print(PIPE "set ylabel \"" . $options{"ylabel"} . "\"\n") if $options{"ylabel"}; print(PIPE "set ylabel \"" . $options{"ylabel" } . "\"\n") if $options{"ylabel"};
print(PIPE "set title \"" . $options{"title" } . "\"\n") if $options{"title"}; print(PIPE "set y2label \"" . $options{"y2label"} . "\"\n") if $options{"y2label"};
print(PIPE "set title \"" . $options{"title" } . "\"\n") if $options{"title"};
my @legend; # For the specified values, set the legend entries to 'title "blah
# for the specified values, set the legend entries to 'legend "title 1"', etc # blah"'. Otherwise, "notitle".
@legend = map({"title \"$_\""} @{$options{"legend"}}) if($options{"legend"}); my @extraopts;
# now append "notitle" to all the non-specified legend entries @extraopts = map({"title \"$_\""} @{$options{"legend"}}) if($options{"legend"});
push @legend, ("notitle") x ($numberOfStreams - @legend); push @extraopts, ("notitle") x ($numberOfStreams - @extraopts);
# For the values requested to be printed on the y2 axis, set that
foreach my $y2idx (@{$options{"y2"}}) { $extraopts[$y2idx] .= " axes x1y2"; }
# This is ugly, but "([]) x $numberOfStreams" was giving me references into a single physical list
for(my $i=0; $i<$numberOfStreams; $i++) { for(my $i=0; $i<$numberOfStreams; $i++) {
push @buffers, []; push @buffers, [];
} }
@ -107,7 +129,7 @@ sub main {
$streamIdx++; $streamIdx++;
if ($streamIdx == $numberOfStreams) { if ($streamIdx == $numberOfStreams) {
$streamIdx = 0; $streamIdx = 0;
plotStoredData($xlast, $samples, $numberOfStreams, *PIPE, \@buffers, \@legend) if($options{"stream"}); plotStoredData($xlast, $samples, $numberOfStreams, *PIPE, \@buffers, \@extraopts) if($options{"stream"});
$xlast++; $xlast++;
} }
} }
@ -121,18 +143,18 @@ sub main {
else else
{ {
$samples = @{$buffers[0]}; $samples = @{$buffers[0]};
plotStoredData($xlast, $samples, $numberOfStreams, *PIPE, \@buffers, \@legend); plotStoredData($xlast, $samples, $numberOfStreams, *PIPE, \@buffers, \@extraopts);
} }
sleep 100000; sleep 100000;
} }
sub plotStoredData sub plotStoredData
{ {
my ($xlast, $samples, $numberOfStreams, $pipe, $buffers, $legend) = @_; my ($xlast, $samples, $numberOfStreams, $pipe, $buffers, $extraopts) = @_;
my $x0 = $xlast - $samples + 1; my $x0 = $xlast - $samples + 1;
print $pipe "set xrange [$x0:$xlast]\n"; print $pipe "set xrange [$x0:$xlast]\n";
print $pipe 'plot ' . join(', ' , map({ "\"-\" $_"} @$legend) ) . "\n"; print $pipe 'plot ' . join(', ' , map({ "\"-\" $_"} @$extraopts) ) . "\n";
foreach my $buf (@{$buffers}) foreach my $buf (@{$buffers})
{ {