#!/usr/bin/perl
#

$d = 5.82;


while (<STDIN>) {
  $line = $_;
  if ($line =~ /^#/) { 
    next;
  }
  @words = split(/\s+/, $line);
  $numclips = $words[1];
  $time = $words[2];
  $timesig = $words[4];

  $vel = $d/$time;
  $maxvel = $d/($time - $timesig);
  $minvel = $d/($time + $timesig);
  $velsig = ($maxvel - $minvel)/2.0;

  $mass = 0.0016 + 0.0004*$numclips;
  $fair = $mass*9.8;

  printf " %3d  %8.5f  %4.2f +/- %4.2f  %5.3f +/- %5.3f   %7.4f \n",
         $numclips, $mass, $time, $timesig, $vel, $velsig,
         $fair;



}

exit 0;