1 files changed, 50 insertions, 0 deletions
diff --git a/macros/wind.sci b/macros/wind.sci
new file mode 100644
index 0000000..9e1708f
--- /dev/null
+++ b/macros/wind.sci
@@ -0,0 +1,50 @@
+function w_out = wind (f, m, varargin)
+//This function creates an m-point window from the function f given as input.
+//Calling Sequence
+//w = window(f, m)
+//w = window(f, m, opts)
+//Parameters
+//f: string value/window name
+//m: positive integer value
+//opts: string value, takes in "periodic" or "symmetric"
+//w: output variable, vector of real numbers
+//Description
+
+//This function creates an m-point window from the function f given as input, in the output vector w.
+//f can take any valid function as a string, for example "blackmanharris".
+//Examples
+//window("hanning",5)
+//ans  =
+//    0.
+//    0.5
+//    1.
+//    0.5
+//    0.
+funcprot(0);
+rhs = argn(2)
+lhs = argn(1)
+
+if(type(f)==10)          // Checking whether 'f' is string or not
+    if(f=="bartlett" | f=="blackman" | f=="blackmanharris"  | f=="bohmanwin" | f=="boxcar" |...
+        f=="barthannwin" | f=="chebwin"| f=="flattopwin" | f=="gausswin" | f=="hamming" |...
+        f=="hanning" | f=="hann" | f=="kaiser" | f=="parzenwin" | f=="triang" |...
+        f=="rectwin" | f=="tukeywin" | f=="blackmannuttall" | f=="nuttallwin")
+        if(rhs<2)
+            error("Wrong number of input arguments.")
+        else
+            c =evstr (f);
+            w=c(m, varargin(:))
+            if (lhs > 0)
+                w_out = w;
+            end
+        end
+
+    else
+        error("Use proper Window name")
+    end
+
+else
+    error("The first argument f that is window name should be a string")
+end
+
+endfunction