diff options
Diffstat (limited to 'macros/czt.sci')
| -rw-r--r-- | macros/czt.sci | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/macros/czt.sci b/macros/czt.sci new file mode 100644 index 0000000..b027489 --- /dev/null +++ b/macros/czt.sci @@ -0,0 +1,22 @@ +function y = czt(x, varargin) + +funcprot(0); +lhs= argn(1); +rhs= argn(2); + +if(rhs<1 | rhs > 4) +error("Wrong number of input arguments") +end + +select (rhs) + case 1 then + y= callOctave("czt", x); + case 2 then + y= callOctave("czt", x, varargin(1)); + case 3 then + y= callOctave("czt", x, varargin(1), varargin(2)); + case 4 then + y= callOctave("czt", x, varargin(1), varargin(2), varargin(3)); +end +endfunction + |