www.pudn.com > antennas-and-radio-wave-propagation.rar > ͼ1-5-8.m, change:2002-01-01,size:329b


deta=0:2*pi/90:2*pi; 
f1=abs(cos(0.5*pi*cos(deta))./(sin(deta+eps))); 
F1=f1./max(max(f1)); 
subplot(1,3,1);polar(deta,F1);title('F1(deta)'); 
fa=abs(2*cos(pi*cos(deta))); 
Fa=fa./max(max(fa)); 
subplot(1,3,2);polar(deta,Fa);title('Fa(deta)'); 
fe=f1.*fa; 
Fe=fe./max(max(fe)); 
subplot(1,3,3);polar(deta,Fe);title('Fe(deta)');