Mercurial > hg > tipic
annotate src/calc_delays.m @ 60:1ea2aed23d4a tip
Fix version
author | Chris Cannam |
---|---|
date | Thu, 13 Feb 2020 13:37:36 +0000 |
parents | 19088c4ba50a |
children |
rev | line source |
---|---|
Chris@3 | 1 |
Chris@3 | 2 load MIDI_FB_ellip_pitch_60_96_22050_Q25.mat; |
Chris@3 | 3 |
Chris@3 | 4 dirac = zeros(50000, 1); |
Chris@3 | 5 dirac(1) = 1.0; |
Chris@3 | 6 |
Chris@3 | 7 delays = zeros(120, 1); |
Chris@3 | 8 |
Chris@3 | 9 for n = 21:120 |
Chris@3 | 10 f = filter(h(n).b, h(n).a, dirac); |
Chris@14 | 11 [~,pos] = max(f(2:10000)); |
Chris@14 | 12 [~,neg] = max(-f(2:10000)); |
Chris@14 | 13 delays(n) = 2 + (pos + neg) / 2; |
Chris@3 | 14 end |
Chris@14 | 15 |
Chris@14 | 16 csvwrite('delays.csv', round(delays)); |