clear,
te=0:.01:pi;
eo=cos(pi/2*cos(te))./sin(te);
polar(te-pi/2,abs(eo).^2);
set(findobj('Type','line'),'LineWidth',1.5)
pause(2)
dl=.25;
fi=-pi/2:.01:pi/2;
et=1+exp(-j*(2*pi*2*dl*cos(fi)+pi));
polar(fi,abs(et).^2);
set(findobj('Type','line'),'LineWidth',1.5)
pause(2)
fi=-pi/2:.01:pi/2;
eo=cos(pi/2*cos(pi/2-fi))./sin(pi/2-fi);
et=(1+exp(-j*(2*pi*2*dl*cos(fi)+pi))).*eo;
polar(fi,abs(et).^2);
set(findobj('Type','line'),'LineWidth',1.5)