diff options
Diffstat (limited to 'macros/fir2.sci')
| -rw-r--r-- | macros/fir2.sci | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/macros/fir2.sci b/macros/fir2.sci new file mode 100644 index 0000000..418a9e4 --- /dev/null +++ b/macros/fir2.sci @@ -0,0 +1,19 @@ +function B = fir2(N, F, M, varargin) + +funcprot(0); +rhs = argn(2) +if(rhs<3 | rhs>6) +error("Wrong number of input arguments."); +end + + select(rhs) + case 3 then + B = callOctave("fir2", N, F, M); + case 4 then + B = callOctave("fir2", N, F, M, varargin(1)); + case 5 then + B = callOctave("fir2", N, F, M, varargin(1), varargin(2)); + case 6 then + B = callOctave("fir2", N, F, M, varargin(1), varargin(2), varargin(3)); + end +endfunction |