# just a quick and dirty work for getting average values
# for "vowelchart.R" 
# 6/21/2004
# Mafuyu Kitahara

@files = ();
opendir(DIR, ".");
@files = grep(/.dat/, readdir(DIR));
closedir(DIR);

$count = $#files + 1;

$sumF1a = 0;
$sumF2a = 0;
$sumF1i = 0;
$sumF2i = 0;
$sumF1u = 0;
$sumF2u = 0;
$sumF1e = 0;
$sumF2e = 0;
$sumF1o = 0;
$sumF2o = 0;

foreach $file (@files) {
open (DATA, "$file");
while (<DATA>) {
  @col = split;
  if ($col[0] eq "a"){$sumF1a += $col[2];}
  if ($col[0] eq "a"){$sumF2a += $col[1];}
  if ($col[0] eq "i"){$sumF1i += $col[2];}
  if ($col[0] eq "i"){$sumF2i += $col[1];}
  if ($col[0] eq "u"){$sumF1u += $col[2];}
  if ($col[0] eq "u"){$sumF2u += $col[1];}
  if ($col[0] eq "e"){$sumF1e += $col[2];}
  if ($col[0] eq "e"){$sumF2e += $col[1];}
  if ($col[0] eq "o"){$sumF1o += $col[2];}
  if ($col[0] eq "o"){$sumF2o += $col[1];}

  }
}
$aveF1a = $sumF1a / $count;
$aveF1i = $sumF1i / $count;
$aveF1u = $sumF1u / $count;
$aveF1e = $sumF1e / $count;
$aveF1o = $sumF1o / $count;
$aveF2a = $sumF2a / $count;
$aveF2i = $sumF2i / $count;
$aveF2u = $sumF2u / $count;
$aveF2e = $sumF2e / $count;
$aveF2o = $sumF2o / $count;

print "number of speakers = $count\n";

print "ave F1 [a] = $aveF1a \n";
print "ave F1 [i] = $aveF1i \n";
print "ave F1 [u] = $aveF1u \n";
print "ave F1 [e] = $aveF1e \n";
print "ave F1 [o] = $aveF1o \n";
print "ave F2 [a] = $aveF2a \n";
print "ave F2 [i] = $aveF2i \n";
print "ave F2 [u] = $aveF2u \n";
print "ave F2 [e] = $aveF2e \n";
print "ave F2 [o] = $aveF2o \n";

### in table format
print "  F2    F1\n";
print "a $aveF2a $aveF1a \n";
print "i $aveF2i $aveF1i \n";
print "u $aveF2u $aveF1u \n";
print "e $aveF2e $aveF1e \n";
print "o $aveF2o $aveF1o \n";