11 lines
198 B
Mathematica
11 lines
198 B
Mathematica
|
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
|