Lines Matching +full:max +full:- +full:freq
1 #! @PATH_PERL@ -w
7 # Copyright (c) 1997, 1999 by Ulrich Windl <Ulrich.Windl@rz.uni-regensburg.de>
37 $log_date_pattern = '[12]\d{3}[01]\d[0-3]\d';
38 $statsdir = $opts->{directory};
39 $outputdir = $opts->{'output-directory'};
40 $skip_time_steps = $opts->{'skip-time-steps'};
41 $startdate = $opts->{'start-date'};
42 $enddate = $opts->{'end-date'};
44 $enddate = `date -u +%Y%m%d`;
46 --$enddate;
48 $peer_dist_limit = $opts->{'peer-dist-limit'};
51 die "$statsdir: no such directory" unless (-d $statsdir);
52 die "$outputdir: no such directory" unless (-d $outputdir);
53 die "$skip_time_steps: skip-time-steps must be positive"
79 for ($loop_summary, $peer_summary, $clock_summary) { unlink $_ if -f $_ };
104 peer_summary($peer_summary) if (-f $peer_summary);
114 sub max
129 my ($loop_tmax, $loop_fmax) = (-1e9, -1e9);
135 my ($freq, $offs);
141 #NTPv3: 50529 74356.259 -0.000112 16.1230 8
145 if ($Fld[2] > $skip_time_steps || $Fld[2] < -$skip_time_steps) {
150 ($offs, $freq) = ($Fld[2], $Fld[3]);
151 $loop_tmax = max($loop_tmax, $offs);
153 $loop_fmax = max($loop_fmax, $freq);
154 $loop_fmin = min($loop_fmin, $freq);
157 $loop_freq += $freq;
158 $loop_freq_rms += $freq * $freq;
163 $loop_time_rms = $loop_time_rms / $loop_count - $loop_time * $loop_time;
170 $loop_freq_rms = $loop_freq_rms / $loop_count - $loop_freq * $loop_freq;
177 ("loop %d, %.0f+/-%.1f, rms %.1f, freq %.2f+/-%0.3f, var %.3f\n",
179 ($loop_tmax - $loop_tmin) / 2 * 1e6, $loop_time_rms * 1e6,
180 ($loop_fmax + $loop_fmin) / 2, ($loop_fmax - $loop_fmin) / 2,
219 #NTPv4: 51333 56042.037 127.127.8.1 94f5 -0.000014657 0.000000000 0.000000000 0.000013214
225 if ($offs > $skip_time_steps || $offs < -$skip_time_steps) {
238 $peer_tmax{$i} = $peer_dist{$i} = -1e9;
246 $peer_tmax{$i} = max($peer_tmax{$i}, $offs);
248 $peer_dist{$i} = max($peer_dist{$i}, $dist);
256 " ident cnt mean rms max delay dist disp\n";
263 eval { $peer_time_rms{$i} = sqrt($peer_time_rms{$i} / $peer_count{$i} -
268 $peer_tmax{$i} = $peer_tmax{$i} - $peer_time{$i};
269 $peer_tmin{$i} = $peer_time{$i} - $peer_tmin{$i};
274 "%-15s %4d %8.3f %8.3f %8.3f %8.3f %8.3f %8.3f\n",
301 my $max;
323 $dist = $Fld[6] - $Fld[5] / 2;
328 $max = $Fld[4];
329 $peer_max{$i} = max($peer_max{$i}, $max);
330 if ($max > 1) {
332 if ($max > 5) {
334 if ($max > 10) {
336 if ($max > 50) {
350 " host days mean rms max >1 >5 >10 >50\n";
356 eval { $peer_var{$i} = sqrt($peer_var{$i} / $peer_count{$i} -
360 "%-15s %3d %9.3f% 9.3f %9.3f %3d %3d %3d %3d\n",