28 lines
424 B
Awk
28 lines
424 B
Awk
|
#! /usr/bin/awk -f
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
dt = 300
|
||
|
|
for (i=0; i<8; i++) C[i] = 0
|
||
|
|
t0 = 0
|
||
|
|
}
|
||
|
|
|
||
|
|
function do_l2() {
|
||
|
|
d = t-t0
|
||
|
|
if (d < 10*dt) {
|
||
|
|
print t0, d, C[0]/d, C[1]/d, C[2]/d, C[3]/d, C[4]/d, C[5]/d, C[6]/d, C[7]/d
|
||
|
|
}
|
||
|
|
for (i=0; i<8; i++) C[i] = 0
|
||
|
|
t0 = t
|
||
|
|
}
|
||
|
|
|
||
|
|
/^H/ {
|
||
|
|
t = $2
|
||
|
|
if (t > t0+dt) do_l2()
|
||
|
|
}
|
||
|
|
|
||
|
|
END { do_l2() }
|
||
|
|
|
||
|
|
/^EI/{
|
||
|
|
l2 = strtonum($4)
|
||
|
|
for (i=0; i<8; i++) if (and(l2,lshift(1,i))) C[i]++;
|
||
|
|
}
|