www.pudn.com > antennas-and-radio-wave-propagation.rar > ͼ1-5-11.m, change:2009-04-01,size:260b


sita=meshgrid(eps:pi/180:pi); 
fai=meshgrid(eps:2*pi/180:2*pi)'; 
r=abs(cos(pi/2*cos(sita))./sin(sita)).*abs(2*cos(pi/4+0.75*pi*sin(sita).*sin(fai))); 
rmax=max(max(r)); 
[x,y,z]=sph2cart(fai,pi/2-sita,r/rmax); 
mesh(x,y,z); 
axis([-1 1 -1 1 -1 1]);view(45,60)