www.pudn.com > Correlation.Multiple.Cluster.rar > plot_uniform.m

function plot_uniform(number_clusters, amplitude, AOA, AS, ... 
		      plot_number, colour) 
% plot_uniform(number_clusters, amplitude, AOA, AS, ... 
%              plot_number, colour) 
% 
% Plots the multi-cluster uniform PAS 
% 
% 
% STANDARD DISCLAIMER 
% 
% CSys is furnishing this item "as is". CSys does not provide any 
% warranty of the item whatsoever, whether express, implied, or 
% statutory, including, but not limited to, any warranty of 
% merchantability or fitness for a particular purpose or any 
% warranty that the contents of the item will be error-free. 
% 
% In no respect shall CSys incur any liability for any damages, 
% including, but limited to, direct, indirect, special, or 
% consequential damages arising out of, resulting from, or any way 
% connected to the use of the item, whether or not based upon 
% warranty, contract, tort, or otherwise; whether or not injury was 
% sustained by persons or property or otherwise; and whether or not 
% loss was sustained from, or arose out of, the results of, the 
% item, or any services that may be provided by CSys. 
% 
% (c) Laurent Schumacher, AAU-TKN/IES/KOM/CPK/CSys - July 2001 
 
phi_deg = -180:1:180; 
for (k = 1:1:number_clusters) 
  cluster_min = AOA(k) - sqrt(3)*AS(k); 
  cluster_MAX = AOA(k) + sqrt(3)*AS(k); 
  if (cluster_min < -180) 
    span = [-180:1:AOA(k) + sqrt(3)*AS(k),360+AOA(k) - sqrt(3)* ... 
	    AS(k):1:180]; 
    cluster_min = cluster_min + 360; 
  elseif (cluster_MAX > 180) 
    span = [-180:1:AOA(k) + sqrt(3)*AS(k)-360,AOA(k) - sqrt(3)* ... 
	    AS(k):1:180]; 
    cluster_MAX = cluster_MAX - 360; 
    else 
      span = AOA(k) - sqrt(3)*AS(k):1:AOA(k) + sqrt(3)*AS(k); 
  end; 
  subplot(2,1,plot_number),plot(span, amplitude(k), colour); 
  hold on; 
  subplot(2,1,plot_number),lh = line([cluster_min cluster_min], ... 
      [0 amplitude(k)]); 
  set(lh, 'Color', colour(1), 'LineStyle', colour(2:size(colour,2))); 
  subplot(2,1,plot_number),lh = line([AOA(k) AOA(k)], ... 
      [0 amplitude(k)]); 
  set(lh, 'Color', colour(1), 'LineStyle', colour(2:size(colour,2))); 
  subplot(2,1,plot_number),lh = line([cluster_MAX cluster_MAX], ... 
      [0 amplitude(k)]); 
  set(lh, 'Color', colour(1), 'LineStyle', colour(2:size(colour,2))); 
end; 
axis([-180 180 0 1.1*max(amplitude)]); 
grid; 
ylabel('Power (Linear)'); 
if (plot_number == 1) 
  title('Power Azimuth Spectrum'); 
else 
  xlabel('\phi [degrees]'); 
end;