Revision 10405,
545 bytes
checked in by ghudson, 27 years ago
(diff) 
This commit was generated by cvs2svn to compensate for changes in r10404,
which included commits to RCS files with nontrunk default branches.

Rev  Line  

[10404]  1  /^ *[09]/ { 

 2  # print out the median time to each hop along a route. 

 3  tottime = 0; n = 0; 

 4  for (f = 5; f <= NF; ++f) { 

 5  if ($f == "ms") { 

 6  ++n 

 7  time[n] = $(f  1) 

 8  } 

 9  } 

 10  if (n > 0) { 

 11  # insertion sort the times to find the median 

 12  for (i = 2; i <= n; ++i) { 

 13  v = time[i]; j = i  1; 

 14  while (time[j] > v) { 

 15  time[j+1] = time[j]; 

 16  j = j  1; 

 17  if (j < 0) 

 18  break; 

 19  } 

 20  time[j+1] = v; 

 21  } 

 22  if (n > 1 && (n % 2) == 0) 

 23  median = (time[n/2] + time[(n/2) + 1]) / 2 

 24  else 

 25  median = time[(n+1)/2] 

 26  

 27  print $1, median 

 28  } 

 29  } 

Note: See
TracBrowser
for help on using the repository browser.