Mercurial > hg > ishara

diff dsp/spec2fir.m @ 32:c3b0cd708782

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Imported core dsp tools.
author samer
date Sun, 20 Jan 2013 13:48:47 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dsp/spec2fir.m	Sun Jan 20 13:48:47 2013 +0000
@@ -0,0 +1,9 @@
+function R=spec2fir(A)
+% SPEC2FIR: convert magnitude spectra to FIR filter coefficients
+%
+% spec2fir :: [[M,L]] -> [[2*(M-1),L]].
+
+n=size(A,1);
+S=[A; conj(A(n-1:-1:2,:))];
+R=fftshift(real(ifft(S)),1);	% get filter coefficients
+