Mercurial > hg > ishara

view arrows/dsp/apowspec1.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
% apowspec1 - Arrow to compute power spectra (automatic sizing version)
%
% apowspec1 ::
%    (N:natural -> [[N]]) ~'analysis window function'
% -> arrow( {[[N]]}, {[[dftbins(N)]]}, empty).
 
function o=apowspec1(windowfn)
	o=arrf(@mk,1,1);
	function f=mk(sizes)
		N=sizes{1}(1);	
		W=spdiag(windowfn(N));
		f=@(x)powspec(W*x,N);
	end
end