Lines Matching +full:wait +full:- +full:free +full:- +full:us
1 #! @PATH_PERL@ -w
8 # Copyright (c) 1997, 1999 by Ulrich Windl <Ulrich.Windl@rz.uni-regensburg.de>
10 # This program is free software; you can redistribute it and/or modify
12 # the Free Software Foundation; either version 2 of the License, or
21 # along with this program; if not, write to the Free Software
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") ) {
95 # make Gnuplot wait
98 print "pause -1 \"Press key to continue...\"\n" if $wait_after_plot;
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";
174 print "set ylabel \"[us]\"\n";
182 print "\"$out_file\" using 1:(\$3-\$6/2) " .
193 print "\"$out_file\" using 1:(\$7-\$10/2) " .
203 if ($min_rms < -$offset_limit) {
204 $ylimit .= "-$offset_limit";
221 print "set ylabel \"[us]\"\n";
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;
296 print "set ylabel \"[us]\"\n";
300 print "\"$out_file\" using 1:(\$3-\$7/2) " .