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