www.pudn.com > antennas-and-radio-wave-propagation.rar > 电基本振子电力线.m, change:2002-01-01,size:264b


%电基本振子电力线,图1-1-2 
m=moviein(5); 
for i=1:5; 
k=0.5+i*0.1; 
sita=0:pi/90:2*pi; 
r=0:0.01:15; 
[SITA,R]=meshgrid(sita,r); 
e=abs(sin(SITA).*sin(k*R)./R); 
[x,y,z]=pol2cart(pi/2-SITA,R,e); 
mesh(x,y,e); 
contour(x,y,e,40); 
m(:,i)=getframe; 
end; 
movie(m,1)