summaryrefslogtreecommitdiff
path: root/macros/invfreq.sci
diff options
context:
space:
mode:
authorAbhinav Dronamraju2017-11-09 15:24:34 +0530
committerAbhinav Dronamraju2017-11-09 15:24:34 +0530
commit2c5902040b960ccca8d0b51c58c00fc114a09518 (patch)
treeee096d4b373fbf6d5e8f8cc3e2b3ec777dd5e865 /macros/invfreq.sci
parent487df8d5650f198857d5dd5635f9493fa8c06e8f (diff)
downloadFOSSEE-Signal-Processing-Toolbox-2c5902040b960ccca8d0b51c58c00fc114a09518.tar.gz
FOSSEE-Signal-Processing-Toolbox-2c5902040b960ccca8d0b51c58c00fc114a09518.tar.bz2
FOSSEE-Signal-Processing-Toolbox-2c5902040b960ccca8d0b51c58c00fc114a09518.zip
czt, dst1, fwht, hilbert1, ifht, ifwht, invfreq, rceps
Diffstat (limited to 'macros/invfreq.sci')
-rw-r--r--macros/invfreq.sci21
1 files changed, 21 insertions, 0 deletions
diff --git a/macros/invfreq.sci b/macros/invfreq.sci
new file mode 100644
index 0000000..dde23ef
--- /dev/null
+++ b/macros/invfreq.sci
@@ -0,0 +1,21 @@
+function [B,A] = invfreq(H,F,nB,nA,W,iter,tol, plane)
+
+
+funcprot(0);
+lhs= argn(1);
+rhs= argn(2);
+if(rhs < 4 | rhs > 8 | rhs == 6 | rhs == 7 )
+error("Wrong number of input arguments");
+end
+
+select(rhs)
+ case 4 then
+ [B,A]= callOctave("invfreq", H,F,nB,nA);
+ case 5 then
+ [B,A]= callOctave("invfreq", H,F,nB,nA, W);
+ case 8 then
+ [B,A]= callOctave("invfreq", H,F,nB, nA,iter, tol, plane);
+end
+endfunction
+
+