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


deta=0:2*pi/90:2*pi; 
f1=1.*deta./deta; 
F1=f1./max(max(f1)); 
subplot(1,3,1);polar(deta,F1);title('F1(deta)'); 
fa=abs(2*cos(pi/4+pi/4*cos(deta))); 
Fa=fa./max(max(fa)); 
subplot(1,3,2);polar(deta,Fa);title('Fa(deta)'); 
fh=f1.*fa; 
Fh=fh./max(max(fh)); 
subplot(1,3,3);polar(deta,Fh);title('Fh(deta)');