#!/usr/bin/perl -w

print "Ring\tAverage\t Sigma\tsig_avg\t  n\t Max.\t Min\n";

while(<>){
  if(/^\s*Average amplitude within ring\s+(\d+)\s+is\s+([0-9.E+]+)\s+for\s+(\d+) /){
      $ring = $1;
      $avg = 0.001 * $2;
      $n   = $3
  }
  elsif(/^\s*\(Sigma =\s*([0-9.E+]+)/){
      $sigma = 0.001 * $1;
  }
  elsif(/^\s*Maximum is\s*([0-9.E+]+)\s*, minimum is\s+([0-9.E+]+)/){
      $maxi = 0.001 * $1;
      $mini = 0.001 * $2;

      $avgsig = $sigma / sqrt($n);
      printf "%2d\t%6.1f\t%6.1f\t%5.1f\t%3d\t% 4d\t%5.1f\n", 
      -1.0 + 2.0 * $ring, $avg, $sigma, $avgsig, $n, $maxi, $mini;
  }
}