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/ac2poly.bin | Bin 4080 -> 4088 bytes macros/ac2rc.bin | Bin 4876 -> 4784 bytes macros/arburg.bin | Bin 8888 -> 8912 bytes macros/arcov.bin | Bin 2280 -> 3768 bytes macros/aryule.bin | Bin 4592 -> 4604 bytes macros/czt.bin | Bin 0 -> 2164 bytes macros/czt.sci | 22 ++++++++++++++++++++++ macros/dst1.bin | Bin 0 -> 1360 bytes macros/dst1.sci | 19 +++++++++++++++++++ macros/fwht.bin | Bin 0 -> 1672 bytes macros/fwht.sci | 20 ++++++++++++++++++++ macros/hilbert1.bin | Bin 0 -> 1704 bytes macros/hilbert1.sci | 17 +++++++++++++++++ macros/ifht.bin | Bin 0 -> 1628 bytes macros/ifht.sci | 16 ++++++++++++++++ macros/ifwht.bin | Bin 0 -> 1684 bytes macros/ifwht.sci | 20 ++++++++++++++++++++ macros/invfreq.bin | Bin 0 -> 2520 bytes macros/invfreq.sci | 21 +++++++++++++++++++++ macros/lib | Bin 5032 -> 5280 bytes macros/names | 8 ++++++++ macros/peak2rms.bin | Bin 13896 -> 13896 bytes macros/rceps.bin | Bin 0 -> 1576 bytes macros/rceps.sci | 17 +++++++++++++++++ 24 files changed, 160 insertions(+) create mode 100644 macros/czt.bin create mode 100644 macros/czt.sci create mode 100644 macros/dst1.bin create mode 100644 macros/dst1.sci create mode 100644 macros/fwht.bin create mode 100644 macros/fwht.sci create mode 100644 macros/hilbert1.bin create mode 100644 macros/hilbert1.sci create mode 100644 macros/ifht.bin create mode 100644 macros/ifht.sci create mode 100644 macros/ifwht.bin create mode 100644 macros/ifwht.sci create mode 100644 macros/invfreq.bin create mode 100644 macros/invfreq.sci create mode 100644 macros/rceps.bin create mode 100644 macros/rceps.sci (limited to 'macros') diff --git a/macros/ac2poly.bin b/macros/ac2poly.bin index 5df28ee..5a1a177 100644 Binary files a/macros/ac2poly.bin and b/macros/ac2poly.bin differ diff --git a/macros/ac2rc.bin b/macros/ac2rc.bin index fbfb4f1..5bb60cf 100644 Binary files a/macros/ac2rc.bin and b/macros/ac2rc.bin differ diff --git a/macros/arburg.bin b/macros/arburg.bin index 3d5ebe9..d0865cb 100644 Binary files a/macros/arburg.bin and b/macros/arburg.bin differ diff --git a/macros/arcov.bin b/macros/arcov.bin index f0ef408..2c23d8e 100644 Binary files a/macros/arcov.bin and b/macros/arcov.bin differ diff --git a/macros/aryule.bin b/macros/aryule.bin index c902718..336ebf3 100644 Binary files a/macros/aryule.bin and b/macros/aryule.bin differ diff --git a/macros/czt.bin b/macros/czt.bin new file mode 100644 index 0000000..a9cd8c5 Binary files /dev/null and b/macros/czt.bin differ 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 Binary files /dev/null and b/macros/dst1.bin differ 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 Binary files /dev/null and b/macros/fwht.bin differ 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 Binary files /dev/null and b/macros/hilbert1.bin differ 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 Binary files /dev/null and b/macros/ifht.bin differ 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 Binary files /dev/null and b/macros/ifwht.bin differ 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 Binary files /dev/null and b/macros/invfreq.bin differ 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 Binary files a/macros/lib and b/macros/lib differ 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 Binary files a/macros/peak2rms.bin and b/macros/peak2rms.bin differ diff --git a/macros/rceps.bin b/macros/rceps.bin new file mode 100644 index 0000000..ff10b98 Binary files /dev/null and b/macros/rceps.bin differ 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 -- cgit