diff options
| author | bgtushar | 2017-11-10 15:03:51 +0530 |
|---|---|---|
| committer | GitHub | 2017-11-10 15:03:51 +0530 |
| commit | 9f6962b19c4a5fa76f7525a72faabb1b754712ad (patch) | |
| tree | 732f6946451fb15f5639fe454ef17fbba2d5012f /macros | |
| parent | 3f916032cc0b2efdeafb838dd10e1141ead2cb27 (diff) | |
| parent | 47535ab08afeb48fbb00f03e68d6ff973cf62cbd (diff) | |
| download | FOSSEE-Signal-Processing-Toolbox-9f6962b19c4a5fa76f7525a72faabb1b754712ad.tar.gz FOSSEE-Signal-Processing-Toolbox-9f6962b19c4a5fa76f7525a72faabb1b754712ad.tar.bz2 FOSSEE-Signal-Processing-Toolbox-9f6962b19c4a5fa76f7525a72faabb1b754712ad.zip | |
Merge pull request #1 from abhinavdronamraju/master
Functions added and html deleted
Diffstat (limited to 'macros')
| -rw-r--r-- | macros/czt.bin | bin | 0 -> 2164 bytes | |||
| -rw-r--r-- | macros/czt.sci | 22 | ||||
| -rw-r--r-- | macros/dst1.bin | bin | 0 -> 1360 bytes | |||
| -rw-r--r-- | macros/dst1.sci | 19 | ||||
| -rw-r--r-- | macros/fwht.bin | bin | 0 -> 1672 bytes | |||
| -rw-r--r-- | macros/fwht.sci | 20 | ||||
| -rw-r--r-- | macros/hilbert1.bin | bin | 0 -> 1704 bytes | |||
| -rw-r--r-- | macros/hilbert1.sci | 17 | ||||
| -rw-r--r-- | macros/hurst.bin | bin | 0 -> 1060 bytes | |||
| -rw-r--r-- | macros/hurst.sci | 13 | ||||
| -rw-r--r-- | macros/ifht.bin | bin | 0 -> 1628 bytes | |||
| -rw-r--r-- | macros/ifht.sci | 16 | ||||
| -rw-r--r-- | macros/ifwht.bin | bin | 0 -> 1684 bytes | |||
| -rw-r--r-- | macros/ifwht.sci | 20 | ||||
| -rw-r--r-- | macros/invfreq.bin | bin | 0 -> 2520 bytes | |||
| -rw-r--r-- | macros/invfreq.sci | 21 | ||||
| -rw-r--r-- | macros/lib | bin | 5260 -> 5688 bytes | |||
| -rw-r--r-- | macros/names | 18 | ||||
| -rw-r--r-- | macros/peak2rms.bin | bin | 13896 -> 13896 bytes | |||
| -rw-r--r-- | macros/rceps.bin | bin | 0 -> 1576 bytes | |||
| -rw-r--r-- | macros/rceps.sci | 17 | ||||
| -rw-r--r-- | macros/remez1.bin | bin | 0 -> 2424 bytes | |||
| -rw-r--r-- | macros/remez1.sci | 21 | ||||
| -rw-r--r-- | macros/sinetone.bin | bin | 0 -> 2132 bytes | |||
| -rw-r--r-- | macros/sinetone.sci | 20 | ||||
| -rw-r--r-- | macros/sinewave.bin | bin | 0 -> 1720 bytes | |||
| -rw-r--r-- | macros/sinewave.sci | 18 | ||||
| -rw-r--r-- | macros/spectral_adf.bin | bin | 0 -> 1768 bytes | |||
| -rw-r--r-- | macros/spectral_adf.sci | 18 | ||||
| -rw-r--r-- | macros/spectral_xdf.bin | bin | 0 -> 1768 bytes | |||
| -rw-r--r-- | macros/spectral_xdf.sci | 18 | ||||
| -rw-r--r-- | macros/spencer.bin | bin | 0 -> 1076 bytes | |||
| -rw-r--r-- | macros/spencer.sci | 15 | ||||
| -rw-r--r-- | macros/stft.bin | bin | 0 -> 5464 bytes | |||
| -rw-r--r-- | macros/stft.sci | 54 | ||||
| -rw-r--r-- | macros/synthesis.bin | bin | 0 -> 1256 bytes | |||
| -rw-r--r-- | macros/synthesis.sci | 16 | ||||
| -rw-r--r-- | macros/yulewalker.bin | bin | 0 -> 1924 bytes | |||
| -rw-r--r-- | macros/yulewalker.sci | 24 |
39 files changed, 387 insertions, 0 deletions
diff --git a/macros/czt.bin b/macros/czt.bin Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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/hurst.bin b/macros/hurst.bin Binary files differnew file mode 100644 index 0000000..f723804 --- /dev/null +++ b/macros/hurst.bin diff --git a/macros/hurst.sci b/macros/hurst.sci new file mode 100644 index 0000000..1a99f8c --- /dev/null +++ b/macros/hurst.sci @@ -0,0 +1,13 @@ +function y = hurst(x) + +funcprot(0); +rhs= argn(2); +if(rhs<1 | rhs>1) + error("Wrong number of input arguments"); +end + +select(rhs) + case 1 then + y= callOctave("hurst", x); +end +endfunction diff --git a/macros/ifht.bin b/macros/ifht.bin Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 + + Binary files differdiff --git a/macros/names b/macros/names index 9b3d915..79a4781 100644 --- a/macros/names +++ b/macros/names @@ -33,6 +33,7 @@ convmtx corrmtx cummax cummin +czt db db2pow dctmtx @@ -40,6 +41,7 @@ decimate dftmtx diric downsample +dst1 dutycycle ellip ellipord @@ -58,6 +60,7 @@ flattopwin fracshift fwhm fwhmjlt +fwht gauspuls gaussdesign gaussian @@ -67,16 +70,21 @@ goertzel grpdelay hann helperHarmonicDistortionAmplifier +hilbert1 +hurst icceps idct1 idct2 idst1 +ifht +ifwht iirlp2mb impinvar impz impzlength interp intfilt +invfreq invimpinvar is2rc isallpass @@ -136,9 +144,11 @@ rc2ac rc2is rc2lar rc2poly +rceps rcosdesign rectpuls rectwin +remez1 resample residued residuez @@ -158,6 +168,8 @@ sgolayfilt shanwavf shiftdata sigmoid_train +sinetone +sinewave slewrate sos2cell sos2ss @@ -166,11 +178,16 @@ sos2zp sosbreak sosfilt specgram +spectral_adf +spectral_xdf +spencer ss2sos statelevels +stft stmcb strips subspaceMethodsInputParser +synthesis tf2sos tf2zp tf2zpk @@ -195,6 +212,7 @@ wkeep wrev xcorr2 xcov1 +yulewalker zerocrossing zp2sos zplane diff --git a/macros/peak2rms.bin b/macros/peak2rms.bin Binary files differindex 4f4cb44..12d6e85 100644 --- a/macros/peak2rms.bin +++ b/macros/peak2rms.bin diff --git a/macros/rceps.bin b/macros/rceps.bin Binary files differnew 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 diff --git a/macros/remez1.bin b/macros/remez1.bin Binary files differnew file mode 100644 index 0000000..43589d0 --- /dev/null +++ b/macros/remez1.bin diff --git a/macros/remez1.sci b/macros/remez1.sci new file mode 100644 index 0000000..aabb25e --- /dev/null +++ b/macros/remez1.sci @@ -0,0 +1,21 @@ +function b = remez1(n,f,a, varargin) + +funcprot(0); +rhs= argn(2); + +if(rhs<3 | rhs>6) +error("Wrong number of input arguments"); +end + +select(rhs) + + case 3 then + b= callOctave("remez", n,f,a); + case 4 then + b= callOctave("remez", n,f,a,varargin(1)); + case 5 then + b= callOctave("remez", n,f,a,varargin(1), varargin(2)); + case 6 then + b= callOctave("remez", n,f,a,varargin(1), varargin(2), varargin(3)); +end +endfunction diff --git a/macros/sinetone.bin b/macros/sinetone.bin Binary files differnew file mode 100644 index 0000000..0c7254b --- /dev/null +++ b/macros/sinetone.bin diff --git a/macros/sinetone.sci b/macros/sinetone.sci new file mode 100644 index 0000000..006a2e0 --- /dev/null +++ b/macros/sinetone.sci @@ -0,0 +1,20 @@ +function y= sinetone(x, varargin) + +funcprot(0); +rhs= argn(2); +if(rhs<1 | rhs>4) +error("Wrong number of input arguments") +end + +select(rhs) + case 1 then + y= callOctave("sinetone", x); + case 2 then + y= callOctave("sinetone", x , varargin(1)); + case 3 then + y= callOctave("sinetone", x , varargin(1), varargin(2)); + case 4 then + y= callOctave("sinetone", x , varargin(1), varargin(2), varargin(3)); + +end +endfunction diff --git a/macros/sinewave.bin b/macros/sinewave.bin Binary files differnew file mode 100644 index 0000000..e5535c2 --- /dev/null +++ b/macros/sinewave.bin diff --git a/macros/sinewave.sci b/macros/sinewave.sci new file mode 100644 index 0000000..d5bdfa9 --- /dev/null +++ b/macros/sinewave.sci @@ -0,0 +1,18 @@ +function y= sinewave(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("sinewave", x); + case 2 then + y= callOctave("sinewave", x , varargin(1)); + case 3 then + y= callOctave("sinewave", x , varargin(1), varargin(2)); + +end +endfunction diff --git a/macros/spectral_adf.bin b/macros/spectral_adf.bin Binary files differnew file mode 100644 index 0000000..f0cdacf --- /dev/null +++ b/macros/spectral_adf.bin diff --git a/macros/spectral_adf.sci b/macros/spectral_adf.sci new file mode 100644 index 0000000..ea81f42 --- /dev/null +++ b/macros/spectral_adf.sci @@ -0,0 +1,18 @@ +function y= spectral_adf(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("spectral_adf", x); + case 2 then + y= callOctave("spectral_adf", x , varargin(1)); + case 3 then + y= callOctave("spectral_adf", x , varargin(1), varargin(2)); + +end +endfunction diff --git a/macros/spectral_xdf.bin b/macros/spectral_xdf.bin Binary files differnew file mode 100644 index 0000000..78678da --- /dev/null +++ b/macros/spectral_xdf.bin diff --git a/macros/spectral_xdf.sci b/macros/spectral_xdf.sci new file mode 100644 index 0000000..fe93327 --- /dev/null +++ b/macros/spectral_xdf.sci @@ -0,0 +1,18 @@ +function y= spectral_xdf(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("spectral_xdf", x); + case 2 then + y= callOctave("spectral_xdf", x , varargin(1)); + case 3 then + y= callOctave("spectral_xdf", x , varargin(1), varargin(2)); + +end +endfunction diff --git a/macros/spencer.bin b/macros/spencer.bin Binary files differnew file mode 100644 index 0000000..4808d26 --- /dev/null +++ b/macros/spencer.bin diff --git a/macros/spencer.sci b/macros/spencer.sci new file mode 100644 index 0000000..537ca8a --- /dev/null +++ b/macros/spencer.sci @@ -0,0 +1,15 @@ +function y= spencer(x) + +funcprot(0); + +rhs= argn(2); + +if(rhs <1 | rhs >1) +error("Wrong number of input arguments"); +end + +select(rhs) + case 1 then + y = callOctave("spencer",x); +end +endfunction diff --git a/macros/stft.bin b/macros/stft.bin Binary files differnew file mode 100644 index 0000000..6766353 --- /dev/null +++ b/macros/stft.bin 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 + + diff --git a/macros/synthesis.bin b/macros/synthesis.bin Binary files differnew file mode 100644 index 0000000..e9730e4 --- /dev/null +++ b/macros/synthesis.bin diff --git a/macros/synthesis.sci b/macros/synthesis.sci new file mode 100644 index 0000000..e787c86 --- /dev/null +++ b/macros/synthesis.sci @@ -0,0 +1,16 @@ +function x= synthesis(Y,C) + +funcprot(0); +lhs= argn(1); +rhs= argn(2); + +if(rhs<2 | rhs >2) + error("Wrong number of input arguments"); +end + +select(rhs) + case 2 then + x= callOctave("synthesis", Y,C); + +end +endfunction diff --git a/macros/yulewalker.bin b/macros/yulewalker.bin Binary files differnew file mode 100644 index 0000000..388c88b --- /dev/null +++ b/macros/yulewalker.bin diff --git a/macros/yulewalker.sci b/macros/yulewalker.sci new file mode 100644 index 0000000..ebcb8aa --- /dev/null +++ b/macros/yulewalker.sci @@ -0,0 +1,24 @@ +function [A,V]= yulewalker(C) + +funcprot(0); +lhs=argn(1); +rhs= argn(2); + +if(rhs<1 | rhs>1) + error("Wrong number of input arguments"); +end + +if(lhs<1 | lhs>2) + error("Wrong number of output arguments"); +end + +select(lhs) + + case 1 then + A= callOctave("yulewalker", C); + case 2 then + [A,V]= callOctave("yulewalker", C); +end +endfunction + + |