BEGIN {
  f=ARGV[1];
  maxdim=ARGV[2];
  refdim=ARGV[3];


  getline < f;
  getline < f;
  i=0;
  while ($0 != "") {
    if ($1>0) {
      i++;
      eps[i]=$1
      d[1,i]=$2;
    }
    getline < f;
  }
  n=i;
  getline < f;
  getline < f;
  for (j=2;j<=maxdim;j++) {
    i=0;
    while ($0 != "") {
      if ($1>0) {
        i++;
        d[j,i]=$2;
      }
      getline < f;
    }
    getline < f;
    getline < f;
  }
  for (j=refdim+1;j<=maxdim;j++) {
    for (i=1;i<n;i++)
      if (d[j,i] != 0. && d[1,i] != 0. ) print eps[i],(d[j,i]-d[refdim,i])/(j-refdim),(d[j,i]-d[refdim,i])/(j-refdim)/d[1,i];
    print "";
  }
}