gaussian.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/awk -f

### gaussian.awk
# generate a Gaussian window
# https://en.wikipedia.org/wiki/Window_function

BEGIN {

    ARGV[1] ? N = ARGV[1] : N = 0
    ARGV[2] ? OFMT = "%." ARGV[2] "g" : OFMT = "%g"
    M = 0.5*(N - 1)

    # sigma <= 0.5
    sigma = 0.4

    for (n=0; n<N; n++) {
        if (N > 1 && M > 0) {
            e[n] = (n - M)/(sigma*M)
            w[n] = exp(-0.5*e[n]*e[n])
            print n, w[n]/M
        }
        else {
            print n, 1.0
        }
    }

}