czt, dst1, fwht, hilbert1, ifht, ifwht, invfreq, rceps

24 files changed, 160 insertions, 0 deletions

diff --git a/macros/ac2poly.bin b/macros/ac2poly.bin
index 5df28ee..5a1a177 100644
--- a/macros/ac2poly.bin
+++ b/macros/ac2poly.bin
diff --git a/macros/ac2rc.bin b/macros/ac2rc.bin
index fbfb4f1..5bb60cf 100644
--- a/macros/ac2rc.bin
+++ b/macros/ac2rc.bin
diff --git a/macros/arburg.bin b/macros/arburg.bin
index 3d5ebe9..d0865cb 100644
--- a/macros/arburg.bin
+++ b/macros/arburg.bin
diff --git a/macros/arcov.bin b/macros/arcov.bin
index f0ef408..2c23d8e 100644
--- a/macros/arcov.bin
+++ b/macros/arcov.bin
diff --git a/macros/aryule.bin b/macros/aryule.bin
index c902718..336ebf3 100644
--- a/macros/aryule.bin
+++ b/macros/aryule.bin
diff --git a/macros/czt.bin b/macros/czt.bin
new file mode 100644
index 0000000..a9cd8c5
--- /dev/null
+++ b/macros/czt.bin
diff --git a/macros/czt.sci b/macros/czt.sci
new file mode 100644
index 0000000..b027489
--- /dev/null
+++ b/macros/czt.sci
@@ -0,0 +1,22 @@
+function y = czt(x, varargin)
+
+funcprot(0);
+lhs= argn(1);
+rhs= argn(2);
+
+if(rhs<1 | rhs > 4)
+error("Wrong number of input arguments")
+end
+
+select (rhs)
+	case 1 then
+		y= callOctave("czt", x);
+	case 2 then
+		y= callOctave("czt", x, varargin(1));
+	case 3 then
+		y= callOctave("czt", x, varargin(1), varargin(2));
+	case 4 then
+		y= callOctave("czt", x, varargin(1), varargin(2), varargin(3));
+end
+endfunction
+
diff --git a/macros/dst1.bin b/macros/dst1.bin
new file mode 100644
index 0000000..91b23ca
--- /dev/null
+++ b/macros/dst1.bin
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
+
diff --git a/macros/fwht.bin b/macros/fwht.bin
new file mode 100644
index 0000000..e2b1d80
--- /dev/null
+++ b/macros/fwht.bin
diff --git a/macros/fwht.sci b/macros/fwht.sci
new file mode 100644
index 0000000..280bbee
--- /dev/null
+++ b/macros/fwht.sci
@@ -0,0 +1,20 @@
+function y = fwht(x, varargin)
+
+funcprot(0);
+rhs= argn(2);
+
+if(rhs<1 | rhs > 3)
+error("Wrong number of input arguments");
+end
+
+select(rhs)
+	case 1 then
+		y= callOctave("fwht", x);
+	case 2 then 
+		y= callOctave("fwht",x, varagin(1));
+	case 3 then
+		y= callOctave("fwht",x, varargin(1), varargin(2));
+end
+endfunction
+
+
diff --git a/macros/hilbert1.bin b/macros/hilbert1.bin
new file mode 100644
index 0000000..11ff749
--- /dev/null
+++ b/macros/hilbert1.bin
diff --git a/macros/hilbert1.sci b/macros/hilbert1.sci
new file mode 100644
index 0000000..864067f
--- /dev/null
+++ b/macros/hilbert1.sci
@@ -0,0 +1,17 @@
+function h= hilbert1(f, varargin)
+
+funcprot(0);
+rhs= argn(2);
+if(rhs<1 | rhs>3)
+	error("Wrong number of Input Arguments")
+end
+
+select(rhs)
+	case 1 then
+		h= callOctave("hilbert", f);
+	case 2 then
+		h= callOctave("hilbert", f, varargin(1));
+	case 3 then
+		h= callOctave("hilbert", f, varargin(1), varargin(2));
+end
+endfunction
diff --git a/macros/ifht.bin b/macros/ifht.bin
new file mode 100644
index 0000000..7cab709
--- /dev/null
+++ b/macros/ifht.bin
diff --git a/macros/ifht.sci b/macros/ifht.sci
new file mode 100644
index 0000000..aacbd7a
--- /dev/null
+++ b/macros/ifht.sci
@@ -0,0 +1,16 @@
+function m = ifht(d, varargin)
+funcprot(0);
+rhs= argn(2);
+if(rhs<1 | rhs>3)
+error("Wrong number of Inputs")
+end
+
+select(rhs)
+	case 1 then 
+		m= callOctave("ifht", d);
+	case 2 then
+		m= callOctave("ifht", d , varargin(1));
+	case 3 then 
+		m= callOctave("ifht", d , varargin(1),varargin(2) );
+end
+endfunction
diff --git a/macros/ifwht.bin b/macros/ifwht.bin
new file mode 100644
index 0000000..2acef55
--- /dev/null
+++ b/macros/ifwht.bin
diff --git a/macros/ifwht.sci b/macros/ifwht.sci
new file mode 100644
index 0000000..163c032
--- /dev/null
+++ b/macros/ifwht.sci
@@ -0,0 +1,20 @@
+function y= ifwht(x, varargin)
+
+funcprot(0);
+rhs= argn(2);
+
+if(rhs<1 | rhs>3)
+error("Wrong number of input arguments")
+end
+
+select(rhs)
+	case 1 then
+		y= callOctave("ifwht", x);
+	case 2 then
+		y= callOctave("ifwht", x, varargin(1));
+	case 3 then
+		y= callOctave("ifwht", x, varargin(1), varargin(2));
+end
+endfunction
+
+
diff --git a/macros/invfreq.bin b/macros/invfreq.bin
new file mode 100644
index 0000000..a13ae55
--- /dev/null
+++ b/macros/invfreq.bin
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
+
+ 
diff --git a/macros/lib b/macros/lib
index 196ee56..fd7ba7c 100644
--- a/macros/lib
+++ b/macros/lib
diff --git a/macros/names b/macros/names
index 76fc13d..3e3fa6e 100644
--- a/macros/names
+++ b/macros/names
@@ -32,6 +32,7 @@ convmtx
 corrmtx
 cummax
 cummin
+czt
 db
 db2pow
 dctmtx
@@ -39,6 +40,7 @@ decimate
 dftmtx
 diric
 downsample
+dst1
 dutycycle
 ellip
 ellipord
@@ -56,6 +58,7 @@ flattopwin
 fracshift
 fwhm
 fwhmjlt
+fwht
 gauspuls
 gaussdesign
 gaussian
@@ -65,13 +68,17 @@ goertzel
 grpdelay
 hann
 helperHarmonicDistortionAmplifier
+hilbert1
 icceps
+ifht
+ifwht
 iirlp2mb
 impinvar
 impz
 impzlength
 interp
 intfilt
+invfreq
 invimpinvar
 is2rc
 isallpass
@@ -131,6 +138,7 @@ rc2ac
 rc2is
 rc2lar
 rc2poly
+rceps
 rcosdesign
 rectpuls
 rectwin
diff --git a/macros/peak2rms.bin b/macros/peak2rms.bin
index 75d11fa..12d6e85 100644
--- a/macros/peak2rms.bin
+++ b/macros/peak2rms.bin
diff --git a/macros/rceps.bin b/macros/rceps.bin
new file mode 100644
index 0000000..ff10b98
--- /dev/null
+++ b/macros/rceps.bin
diff --git a/macros/rceps.sci b/macros/rceps.sci
new file mode 100644
index 0000000..065e482
--- /dev/null
+++ b/macros/rceps.sci
@@ -0,0 +1,17 @@
+function [y, xm]= rceps(x)
+
+funcprot(0)
+lhs= argn(1)
+rhs= argn(2)
+
+if(rhs <1 | rhs> 1 )
+error("Wrong number of Input Arguments");
+end
+
+if(lhs<2 | lhs>2)
+error("Wrong number of Output Arguments")
+end
+
+	[y,xm]= callOctave("rceps",x);
+
+endfunction