lointain1ds.m

DOA baemforming for one monopole

function lointain1Ds(P,A,k)

im=sqrt(-1);
Pcentre=1;

for d=1:length(A)
   for p=1:length(A)
      interspectre(d,p)=P(d)*conj(P(p));
   end
end


% --------------------------- DEBUT DU CALCUL ----------------------------
precisiondegre=input('precision angulaire (en degre