From 2c5902040b960ccca8d0b51c58c00fc114a09518 Mon Sep 17 00:00:00 2001
From: Abhinav Dronamraju
Date: Thu, 9 Nov 2017 15:24:34 +0530
Subject: czt, dst1, fwht, hilbert1, ifht, ifwht, invfreq, rceps

---
 macros/dst1.sci | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 macros/dst1.sci

(limited to 'macros/dst1.sci')

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
+
-- 
cgit