Mercurial > hg > yjdafx13bpr
view Sirtassa/createExcitationSpectrums.m @ 2:13ec2fa02a26 tip
(none)
author | Yannick JACOB <y.jacob@se12.qmul.ac.uk> |
---|---|
date | Tue, 03 Sep 2013 15:33:42 +0100 |
parents | 2cd427e000b0 |
children |
line wrap: on
line source
function spec = createExcitationSpectrums(pitch,size,nbPartials,partialsWeights,dif,hammingWindows) spec = zeros(size,nbPartials); if (pitch) for harm = 1:nbPartials freq =pitch*harm+1; low = floor(freq-dif/2); low = max(low,1); high = ceil(freq+dif/2); len = high-low+1; spec(low:high,harm) = hammingWindows{len}*partialsWeights(harm); spec(low:high,harm) = spec(low:high,harm)/max(spec(low:high,harm)); end end spec(size+1:end,:)=[];