Mercurial > hg > ishara

view arrows/dsp/aspecsyn.m @ 6:0ce3c2070089

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed duplicate code and fixed doc in timed_action.
author samer
date Mon, 14 Jan 2013 14:33:37 +0000
parents 672052bd81f8
children
line wrap: on
line source
% aspecsyn - Spectral synthesis arrow
%
% aspecsyn ::
%    N:natural,
%    M:natural,
%    (N:natural-> [[N]]) ~'window function'
% -> arrow( {[[N]]}, {[[M]]}, _).
function o=aspecsyn(N,M,windowfn)
	o = (arr(@spec2fir) + asampler(@randn,[N,1])) ...  % FIR filter coefficients  and white noise
	    * adynfir(N,N) * amult(spdiag(windowfn(N))) ... % windowed sample buffers
		 * aolapadd(N,M);
end