Mercurial > hg > ishara

view arrows/dsp/apowspec1.m @ 61:eff6bddf82e3 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finally implemented perceptual brightness thing.
author samer
date Sun, 11 Oct 2015 10:20:42 +0100
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