diff options
Diffstat (limited to 'macros/hilbert1.sci')
| -rw-r--r-- | macros/hilbert1.sci | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/macros/hilbert1.sci b/macros/hilbert1.sci new file mode 100644 index 0000000..864067f --- /dev/null +++ b/macros/hilbert1.sci @@ -0,0 +1,17 @@ +function h= hilbert1(f, varargin) + +funcprot(0); +rhs= argn(2); +if(rhs<1 | rhs>3) + error("Wrong number of Input Arguments") +end + +select(rhs) + case 1 then + h= callOctave("hilbert", f); + case 2 then + h= callOctave("hilbert", f, varargin(1)); + case 3 then + h= callOctave("hilbert", f, varargin(1), varargin(2)); +end +endfunction |