sa_ex7_8.m

这个是英文版<<Smart Antennas for Wireless Communications>>配套的matlab源程序

% Maximum Entropy AOA estimation for a M = 6 element array with noise variance = .1
% 

M=6;
sig2=.1;
th1=-5*pi/180;
th2=5*pi/180;
a1=[1];
a2=[1];
a=[1];
%u3=[0 0 1 0 0 0];
for i=2:M
    a1=[a1 exp(-1j*i*pi*sin(th1))];
    a2=[a2 exp(-1j*i*pi*sin(th2))];
end
A=[a1.' a2.'];
Rss=[1 0;0 1];
sig=(rand(1,6)-.5)*.5;
%Rrr=A*Rss*A'+sig2*eye(6);
Rrr=A*Rss*A'+diag(sig);         % option to allow the noise variance for each channel to 
                                % vary
Sinv=inv(Rrr);
c=Sinv(:,3);
for k=1:180;
   th(k)=-pi/6+pi*k/(3*180);
   clear a
a=[1];
   for jj=2:M
      a = [a exp(-1j*jj*pi*sin(th(k)))];
   end
 
P(k)=1/abs(conj(a)*c*c'*a.');

end
figure;
plot(th*180/pi,10*log10(P/max(P)),'k')
grid on
xlabel('Angle')
ylabel('|P(\theta)|')
axis([-30 30 -30 10])

%num2str(A,2)