% Smart antennas figure 3.14  3-D pattern for sin(theta)^2 pattern for infinitesimal dipole
% 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;
ezmesh(fx,fy,fz,[0,2*pi,0,tend],100)
colormap([0 0 0])
%hold on
%t=0:.01:2*pi;
%patch(0*[ones(1,length(t))],sin(t).^2.*sin(t),sin(t).^2.*cos(t),[1 1 1])
axis square
axis equal
view(112,24)
grid off
axis off
title .
zoom(1.5)