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));