4番目と次の列では、awk olnyを使用して一部のデータを平滑化するのに役立ちます。以下はデータの例です。
Date;time;Time_ms;A;B;C;D
23.11.2012;15:03:00;41236627696;1;2;2;3
23.11.2012;15:04:00;41236628391;2;3;3;11
23.11.2012;15:06:00;41236629097;1;23;7;15
24.11.2012;15:07:00;41236627696;1;4;5;3
24.11.2012;15:08:00;41236628391;3;12;1;2
24.11.2012;15:09:00;41236629097;2;23;71;15;8
23.11.2012;15:10:00;41236627696;7;1;2;2;3
23.11.2012;15:11:00;41236628391;2;3;12;1;
23.11.2012;15:12:00;41236629097;22;2;7;15
出力はDate; time; Time_msを変更しないでください。最初のn行のAフィールドと次のn行のAフィールドを含むAの平均を印刷しないでください。 B、C、D列も同じことを行う必要があります。たとえば、n = 1の場合、2行目は次のようになります。
23.11.2012;15:04:00;41236628391;(1+2+1)/3;(2+3+23)/3;(2+3+7)/3;(3+11+15)/3
たぶんこれが出発点になるかもしれません。
BEGIN { WIDTH=3 }
{ DATA[(++N)%WIDTH]=$0 }
(N>=WIDTH) {
V=0
for(X=(N+1); X<=(N+WIDTH); X++)
V+=DATA[X%WIDTH];
print V/WIDTH;
}
ベストアンサー1
統計データ処理のために、右一般的に使いやすくなります。
すべてのデータをメモリに読み込む方が簡単です。 Awkは最高の言語ではありません(もちろん可能ですが)。これは高速Pythonスクリプトです。
#!/usr/bin/env python
import sys
n = int(sys.argv[1]) # the smooth parameter n must be passed as the first argument to the script
print sys.stdin.readline() # print the header line
def split_line(line): # split line into first 3 fields as string, then list of numbers
fields = line[:-1].split(";")
return [";".join(fields[:3])] + map(float, fields[3:7])
rows = map(split_line, sys.stdin.readlines())
def avg(i, j):
return (rows[i-n][j] + rows[i][j] + rows[i+n][j]) / 3
for i in xrange(n, len(rows) - n):
print ";".join([rows[i][0]] + [str(avg(i, j-2)) for j in xrange(3, 7)])
データが本当に大きい場合、ここにあるスクリプトがその効果を発揮すると思います。 2*n+1 行を読み取り、その値を plus に格納し、prev[2*n]
(n+1) 行の平均を出力します。prev[1]
$0
awk -F ';' -v OFS=';' -v n="${1-1}" '
function avg(i) { return (prev[2*n, i] + prev[n, i] + $i) / 3; }
NR == 1 { print; next } # title line: print and skip the rest
NR >= 2*n+2 {
# fourth line on: print the average values from the past 3 lines
# with the labels from the previous line
print labels[n], avg(4), avg(5), avg(6), avg(7);
}
{
# shift the saved averages by 1 position
for (i=4; i<=7; i++) {
for (k=2*n; k>1; k--) prev[k, i] = prev[k-1, i];
prev[1, i] = $i;
}
# save the labels of this line to print in the next round
for (k=n; k>1; k--) labels[k] = labels[k-1];
labels[1] = $1 ";" $2 ";" $3;
}
'