Mercurial > hg > yjdafx13bpr
annotate 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 |
rev | line source |
---|---|
y@0 | 1 function spec = createExcitationSpectrums(pitch,size,nbPartials,partialsWeights,dif,hammingWindows) |
y@0 | 2 spec = zeros(size,nbPartials); |
y@0 | 3 if (pitch) |
y@0 | 4 for harm = 1:nbPartials |
y@0 | 5 freq =pitch*harm+1; |
y@0 | 6 low = floor(freq-dif/2); |
y@0 | 7 low = max(low,1); |
y@0 | 8 high = ceil(freq+dif/2); |
y@0 | 9 len = high-low+1; |
y@0 | 10 |
y@0 | 11 spec(low:high,harm) = hammingWindows{len}*partialsWeights(harm); |
y@0 | 12 spec(low:high,harm) = spec(low:high,harm)/max(spec(low:high,harm)); |
y@0 | 13 end |
y@0 | 14 end |
y@0 | 15 spec(size+1:end,:)=[]; |
y@0 | 16 |