From 4c4eb1bd8f003b3b57707badd2dd089ed193a896 Mon Sep 17 00:00:00 2001
From: wukong <wukong@longaeva>
Date: Fri, 10 Apr 2026 23:46:12 -0700
Subject: renamed fir window generators; minor edits to whitespace and comments
 for more consistent style;

---
 fir_window_gaussian.awk | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 fir_window_gaussian.awk

(limited to 'fir_window_gaussian.awk')

diff --git a/fir_window_gaussian.awk b/fir_window_gaussian.awk
new file mode 100644
index 0000000..14ebc48
--- /dev/null
+++ b/fir_window_gaussian.awk
@@ -0,0 +1,39 @@
+#!/usr/bin/awk -f
+
+### fir_window_gaussian.awk
+# generate a Gaussian window
+# https://en.wikipedia.org/wiki/Window_function
+
+
+# Gaussian window
+function gaussian(n) {
+    # sigma <= 0.5
+    sigma = 0.4
+    en[n] = (n - M)/(sigma*M)
+    return exp(-0.5*e[n]*e[n])
+}
+
+
+BEGIN {
+
+    ARGV[1] ? N = ARGV[1] : N = 0
+    ARGV[2] ? OFMT = "%." ARGV[2] "g" : OFMT = "%g"
+
+    # window interval goes from -M to M
+    M = 0.5*(N - 1)
+    pi = 4*atan2(1,1)
+
+    for (n=0; n<N; n++) {
+        if (N > 1 && M > 0) {
+            # sigma <= 0.5
+            sigma = 0.4
+            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
+        }
+    }
+}
+
-- 
cgit v1.2.3