summaryrefslogtreecommitdiff
path: root/macros/impz.sci
diff options
context:
space:
mode:
authorshamikam2017-11-07 15:59:48 +0530
committershamikam2017-11-07 15:59:48 +0530
commitc0c0582462720ed597b00e116506570577614e89 (patch)
tree31dedd23698e5357b19c810b7d7a8464100ef44a /macros/impz.sci
downloadFOSSEE-Signal-Processing-Toolbox-c0c0582462720ed597b00e116506570577614e89.tar.gz
FOSSEE-Signal-Processing-Toolbox-c0c0582462720ed597b00e116506570577614e89.tar.bz2
FOSSEE-Signal-Processing-Toolbox-c0c0582462720ed597b00e116506570577614e89.zip
initial commit
Diffstat (limited to 'macros/impz.sci')
-rw-r--r--macros/impz.sci55
1 files changed, 55 insertions, 0 deletions
diff --git a/macros/impz.sci b/macros/impz.sci
new file mode 100644
index 0000000..cfa9b32
--- /dev/null
+++ b/macros/impz.sci
@@ -0,0 +1,55 @@
+function [x_r, t_r] = impz(b, a, n, fs)
+
+//
+//Calling Sequence
+//x_r = impz(b)
+//x_r = impz(b, a)
+//x_r = impz(b, a, n)
+//x_r = impz(b, a, n, fs)
+//[x_r, t_r] = impz(b, a, n, fs)
+
+//Parameters
+//
+
+//Description
+
+//Examples
+
+
+//This function is being called from Octave
+
+
+funcprot(0);
+rhs = argn(2)
+lhs = argn(1)
+if(rhs<1 | rhs>4)
+error("Wrong number of input arguments.")
+end
+
+ select(rhs)
+ case 1 then
+ if(lhs==1)
+ [x_r] = callOctave("impz",b)
+ elseif(lhs==2)
+ [x_r,t_r] = callOctave("impz",b)
+ end
+ case 2 then
+ if(lhs==1)
+ [x_r] = callOctave("impz",b,a)
+ elseif(lhs==2)
+ [x_r,t_r] = callOctave("impz",b,a)
+ end
+ case 3 then
+ if(lhs==1)
+ [x_r] = callOctave("impz",b,a,n)
+ elseif(lhs==2)
+ [x_r,t_r] = callOctave("impz",b,a,n)
+ end
+ case 4 then
+ if(lhs==1)
+ [x_r] = callOctave("impz",b,a,n,fs)
+ elseif(lhs==2)
+ [x_r,t_r] = callOctave("impz",b,a,n,fs)
+ end
+ end
+endfunction