0

ねえ、私はテキストファイルのレコード間の距離を見つけようとしています。私はawkを使ってそれをやろうとしています。入力例は次のとおりです。

1 2 1 4 yes
2 3 2 2 no
1 1 1 5 yes
4 2 4 0 no
5 1 0 1 no

それぞれの数値間の距離を求めたい。私はこれを、値を減算してから答えを2乗することによって行っています。以下のコードを試しましたが、すべての距離は単純に0です。助けていただければ幸いです。

BEGIN {recs = 0; fieldnum = 5;}
{
  recs++;
    for(i=1;i<=NF;i++) {data[recs,i] = $i;}
}
END {
  for(r=1;r<=recs;r++) {
    for(f=1;f<fieldnum;f++) {
        ##find distances
        for(t=1;t<=recs;t++) {
        distance[r,t]+=((data[r,f] - data[t,f])*(data[r,f] - data[t,f]));
            }
        }
    }
      for(r=1;r<=recs;r++) {
        for(t=1;t<recs;t++) {
        ##print distances
        printf("distance between %d and %d is %d \n",r,t,distance[r,t]);
        }
        }
    }
4

1 に答える 1

3

「各数値間の距離」が概念的に何を意味するのかわからないので、アルゴリズムを手伝うことはできませんが、コードをクリーンアップして、それがどのように見えるかを確認しましょう。

$ cat tst.awk
{
   for(i=1;i<=NF;i++) {
      data[NR,i] = $i
   }
}
END {
  for(r=1;r<=NR;r++) {
    for(f=1;f<NF;f++) {
        ##find distances
        for(t=1;t<=NR;t++) {
            delta = data[r,f] - data[t,f]
            distance[r,t]+=(delta * delta)
        }
     }
  }
  for(r=1;r<=NR;r++) {
     for(t=1;t<NR;t++) {
        ##print distances
        printf "distance between %d and %d is %d\n",r,t,distance[r,t]
     }
  }
}
$
$ awk -f tst.awk file
distance between 1 and 1 is 0
distance between 1 and 2 is 7
distance between 1 and 3 is 2
distance between 1 and 4 is 34
distance between 2 and 1 is 7
distance between 2 and 2 is 0
distance between 2 and 3 is 15
distance between 2 and 4 is 13
distance between 3 and 1 is 2
distance between 3 and 2 is 15
distance between 3 and 3 is 0
distance between 3 and 4 is 44
distance between 4 and 1 is 34
distance between 4 and 2 is 13
distance between 4 and 3 is 44
distance between 4 and 4 is 0
distance between 5 and 1 is 27
distance between 5 and 2 is 18
distance between 5 and 3 is 33
distance between 5 and 4 is 19

ゼロ以外の出力が生成されるようです....

于 2012-10-19T02:11:06.317 に答える