sa_fig3_4.m

Smart antennas for wireless communication - With MATLAB (Gross F.B. - 2005 - McGraw-Hill)

% Smart antennas 3-D pattern for cos(theta)^4 pattern
% use 100 data points in theta and 100 data points in phi

set(0,'defaultfigurecolor','w')
tend=pi;
fx=inline('sin(theta)^2*sin(theta)*cos(phi)');
fy=inline('sin(theta)^2*sin(theta)*sin(phi)');
fz=inline('sin(theta)^2*cos(theta)');
figure;
%ezsurf(fx,fy,fz,[0,2*pi,0,tend],100)
ezmesh(fx,fy,fz,[0,2*pi,0,tend],100)
shading interp
colormap(gray)
brighten(.5)
axis square
axis equal
axis([-.5 .5 -.5 .5 0 1])
set(gca,'XDir','reverse','YDir','reverse')
view(-63,24)
%lightangle(-63,24)
%camlight right
camlight(20,-20,'infinite')
material dull
lighting phong
grid off
axis off
title .