From 47535ab08afeb48fbb00f03e68d6ff973cf62cbd Mon Sep 17 00:00:00 2001
From: Abhinav Dronamraju
Date: Fri, 10 Nov 2017 14:59:26 +0530
Subject: Functions added

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

(limited to 'macros/stft.sci')

diff --git a/macros/stft.sci b/macros/stft.sci
new file mode 100644
index 0000000..01d8f9b
--- /dev/null
+++ b/macros/stft.sci
@@ -0,0 +1,54 @@
+function [y,c]= stft(x, varargin)
+
+funcprot(0);
+lhs= argn(1);
+rhs= argn(2);
+
+if(rhs <1 | rhs>5)
+	error("Wrong number of input arguments");
+end
+
+if(lhs<1 | lhs>2)
+	error("Wrong number of output arguments");
+end
+
+select(rhs)
+	case 1 then
+		select(lhs)
+			case 1 then
+				y= callOctave("stft", x);
+			case 2 then
+				[y,c]= callOctave("stft", x);
+		end
+	case 2 then
+		select(lhs)
+			case 1 then
+				y= callOctave("stft", x,varargin(1));
+			case 2 then
+				[y,c]= callOctave("stft", x, varargin(1));
+		end
+	case 3 then
+		select(lhs)
+			case 1 then
+				y= callOctave("stft", x,varargin(1), varargin(2));
+			case 2 then
+				[y,c]= callOctave("stft", x,varargin(1), varargin(2));
+		end
+	case 4 then
+		select(lhs)
+			case 1 then
+				y= callOctave("stft", x,varargin(1), varargin(2), varargin(3));
+			case 2 then
+				[y,c]= callOctave("stft", x,varargin(1), varargin(2), varargin(3));
+		end
+	case 5 then
+		select(lhs)
+			case 1 then
+				y= callOctave("stft", x,varargin(1), varargin(2), varargin(3), varargin(4));
+			case 2 then
+				[y,c]= callOctave("stft", x,varargin(1), varargin(2), varargin(3), varargin(4));
+		end
+end
+endfunction
+
+
-- 
cgit