diff options
Diffstat (limited to 'macros/tukeywin.sci')
| -rw-r--r-- | macros/tukeywin.sci | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/macros/tukeywin.sci b/macros/tukeywin.sci new file mode 100644 index 0000000..7ac8641 --- /dev/null +++ b/macros/tukeywin.sci @@ -0,0 +1,34 @@ +function w = tukeywin (m, r) +//This function returns the filter coefficients of a Tukey window. +//Calling Sequence +//w = tukeywin (m) +//w = tukeywin (m, r) +//Parameters +//m: positive integer +//r: positive real number, between 0 and 1 +//Description +//This is an Octave function. +//This function returns the filter coefficients of a Tukey window of length m supplied as input, to the output vector w. +//The second parameter r defines the ratio between the constant and cosine section and its value has to be between 0 and 1, with default value 0.5. +//Examples +//tukeywin(5, 2) +//ans = +// 0. +// 0.5 +// 1. +// 0.5 +// 0. + +funcprot(0); +rhs = argn(2) +if(rhs<1 | rhs>2) +error("Wrong number of input arguments.") +end + select(rhs) + case 1 then + w = callOctave("tukeywin",m) + case 2 then + w = callOctave("tukeywin",m,r) + end +endfunction + |