function a=vect_dir_circ(D,H,d,M,lambda);


% Position de la source : [D,H]
% Antenne Lineaire Uniforme - distance intercapteurs d
% frequence de travail : f0
% vitesse de propagation : c
% longueur d'onde : lambda
% Nombre de capteurs : M


% modèle circulaire
% a([D,H])=[.... 1/Rk*exp(-j*2*pi*f0*Rk/c) ...]
% a([D,H])=[.... 1/Rk*exp(-j*2*pi*Rk/lambda) ...]
% avec Rk^2= H^2+(D+(k-1)*d)^2

k=[1:M]; k=k(:);
R= sqrt(H^2+(D+(k-1)*d).^2);     % vecteur contenant la suite des distances Rk

if isinf(lambda)
a=(1./R); % vecteur directionnel
else
    a=(1./R).*exp(-j*2*pi*R/lambda); % vecteur directionnel
end;
