frequences.m: Computes the depth of the mine

function freq=frequences(vecteur, temp_scan)
% FREQUENCES On passe un vecteur contenant la transformee de Fourier et le
% temps d'un scan (p.ex. 25 nano secondes)
% vecteur est deja shifte a l'aide de fftshift_1d

if nargin<2
  temp_scan = 25E-9;
end;

[m,n] = size( vecteur );
if ( n > 1 )
  % error
end;

v_max = max(vecteur);
freq = -1;

for i = (1:m)
  if vecteur(i,1) == v_max
	offset = abs( m/2 - i );
    freq = 1 / (temp_scan / m * offset);
  end;
end;

end