initial commit

1 files changed, 26 insertions, 0 deletions

diff --git a/macros/parzenwin.sci b/macros/parzenwin.sci
new file mode 100644
index 0000000..f51c924
--- /dev/null
+++ b/macros/parzenwin.sci
@@ -0,0 +1,26 @@
+function [y] = parzenwin (m)
+//This function returns the filter coefficients of a Parzen window.
+//Calling Sequence
+//y = parzenwin (m)
+//Parameters 
+//m: positive integer value
+//y: output variable, vector of real numbers 
+//Description
+//This is an Octave function.
+//This function returns the filter coefficients of a Parzen window of length m supplied as input, to the output vector y. 
+//Examples
+//parzenwin(3)
+//ans  =
+//    0.0740741  
+//    1.         
+//    0.0740741
+
+rhs = argn(2)
+
+if(rhs~=1)
+error("Wrong number of input arguments.")
+end
+
+y = callOctave("parzenwin",m)
+
+endfunction