From 7ab9ca8f57c44e812d3c782209a9e600dc513fbc Mon Sep 17 00:00:00 2001
From: wukong <wukong@longaeva>
Date: Mon, 12 Nov 2018 22:35:51 -0800
Subject: added optional precision argv to other scripts;

---
 hamming.awk | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'hamming.awk')

diff --git a/hamming.awk b/hamming.awk
index fd6d89c..f7ff9f7 100644
--- a/hamming.awk
+++ b/hamming.awk
@@ -7,14 +7,16 @@
 
 BEGIN {
 
-    ### R.W. Hamming, "Digital Filters"
-    # H = "0.23 0.54 0.23"
+    ARGV[1] ? N = ARGV[1] : N = 0
+    ARGV[2] ? OFMT = "%." ARGV[2] "g" : OFMT = "%g"
 
-    N = ARGV[1]
     # window interval goes from -M to M
     M = 0.5*(N - 1)
     pi = 4*atan2(1,1)
 
+    ### R.W. Hamming, "Digital Filters"
+    # H = "0.23 0.54 0.23"
+
     a0 = (25.0/46.0)
     a1 = (21.0/46.0)
 
@@ -29,10 +31,10 @@ BEGIN {
     for (n=-M; n<=M; n++) {
         if (N > 1 && M > 0) {
             w[n] = a0 + a1*cos((pi*n)/M)
-            print n, w[n]/M
+            print n + M, w[n]/M
         }
         else {
-            print n, 1.0
+            print n + M, 1.0
         }
     }
 
-- 
cgit v1.2.3