UNIX for Dummies Questions & Answers

BEGIN {
        OFS="\t"
        WIDTH=23;

        # I THINK this will get the right amount of overlap
        # numbers for any WIDTH.  If it doesn't, ditch it and
        # and set OVERLAP to a value.
        if(WIDTH % 2)   OVERLAP=(WIDTH-1)/2;
        else            OVERLAP=(WIDTH/2);
}

{
        N++;    READY++;
        for(X=1; X<=NF; X++)    NUM[X,N%WIDTH]=$X
}

READY >= WIDTH {
        for(X=1; X<=NF; X++)
        {
                $X=0
                for(C=0; C<WIDTH; C++)  $X += NUM[X,(C+N)%WIDTH];
                $X /= WIDTH;
        }

        print

        # Wait (WIDTH-OVERLAP) rows before averaging the last WIDTH rows again
        READY -= (WIDTH-OVERLAP);
}