TP-traitement-audio-visuel/TP11/pics_spectraux.m

11 lines
198 B
Mathematica
Raw Normal View History

2023-06-22 18:47:16 +00:00
function [pics_t, pics_f] = pics_spectraux(S)
tau = 30;
phi = 30;
epsilon = 1;
dilated = imdilate(S, true(phi, tau));
[pics_f, pics_t] = find(S == dilated & S > epsilon);
end