Lines Matching +full:data +full:- +full:lines

1 #! @PATH_PERL@ -w
5 # Use Gnuplot to display data in summary files produced by summary.pl.
8 # Copyright (c) 1997, 1999 by Ulrich Windl <Ulrich.Windl@rz.uni-regensburg.de>
39     $identifier  = $opts->{'identifier'};
44     $offset_limit       = $opts->{'offset-limit'};
45     $output_file        = $opts->{'output-file'};
47     $gnuplot_terminal   = $opts->{'plot-terminal'}
49     $wait_after_plot    = !$opts->{'dont-wait'};
51     die "illegal offset-limit: $offset_limit" unless $offset_limit > 0.0;
54     my $summary_dir = $opts->{'directory'};
60     my @peer_list   = @{$opts->{'peer'}};
87 	while ( -r ($file = "$output_file$output_file_number") ) {
98     print "pause -1 \"Press key to continue...\"\n" if $wait_after_plot;
101 # plot data from loop summary
110     my ($min_offs, $max_offs) = (1e9, -1e9);
111     my ($min_rms, $max_rms) = (1e9, -1e9);
120 	    $_ = $Fld[0]; s/.*([12]\d{3}[01]\d[0-3]\d)$/$1/;
122 	    $line = timegm(59, 59, 23, $3, $2 - 1, $1 - 1900, 0, 0, 0);
124 	    $first_day = "$1-$2-$3 ($line)" unless $day_out;
131 # loop 216, 856106+/-874041.5, rms 117239.8, freq 67.52+/-10.335, var 4.850
133 	$_ = $Fld[2]; m:(.+?)\+/-(.+),:;
134 	$lower_bound = $1 - $2;
143 	$_ = $Fld[6]; m:(.+?)\+/-(.+),:;
144 	$line .= " $1 " . ($1-$2) . " " . ($1+$2);
148 # 9621 216 856106 -17935.5 1730147.5 117239.8  67.52 57.185 77.855 4.850
153     if ($min_offs < -$offset_limit) {
154 	$ylimit .= "-$offset_limit";
175     print "set style data yerrorbars\n";
182     print "\"$out_file\" using 1:(\$3-\$6/2) " .
183 	"title \"(sigma low)\" with lines, ";
185 	"title \"(Bezier med)\" with lines, ";
187 	"title \"(sigma high)\" with lines\n";
193     print "\"$out_file\" using 1:(\$7-\$10/2) " .
194 	"title \"(sigma low)\" with lines, ";
196 	"title \"(Bezier med)\" with lines, ";
198 	"title \"(sigma high)\" with lines\n";
203     if ($min_rms < -$offset_limit) {
204 	$ylimit .= "-$offset_limit";
223     print "set style data linespoints\n";
227 	"title \"(Bezier)\" with lines\n";
234 	"title \"(Bezier)\" with lines\n";
245 # plot data form peer summary
262 	    $_ = $Fld[0]; s/.*([12]\d{3}[01]\d[0-3]\d)$/$1/;
264 	    $line = timegm(59, 59, 23, $3, $2 - 1, $1 - 1900, 0, 0, 0);
266 	    $first_day = "$1-$2-$3 ($line)" unless $day_out;
283     die "no data found for peer $peer" if !$day_out;
295     print "set style data linespoints\n";
299 	"title \"(Bezier)\" with lines, ";
300     print "\"$out_file\" using 1:(\$3-\$7/2) " .
301 	"title \"(sigma low)\" with lines, ";
303 	"title \"(sigma high)\" with lines\n";
310 	"title \"(Bezier)\" with lines\n";
316 	"title \"(Bezier)\" with lines\n";