function a=vect_dir_lin(theta,d,M,lambda);


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


% modèle linéaire
% a(theta)=[.... exp(j*2*pi*k * d*sin(theta)/lambda) ...]


if isinf(lambda)
a=ones(M,1); % vecteur directionnel
else
k=[0:M-1]; k=k(:);
a=exp(j*2*pi*k*d*sin(theta*pi/180)/lambda); % vecteur directionnel
end;