EMIRROR Elliptical mirror demonstartion

by Chuck DiMarzio Northeastern University April 2009

!! This file may be copied, used, or modified for educational and
!! research purposes provided that this header information is not
!! removed or altered, and provided that the book is cited in
!! publications, as DiMarzio, Charles A., Optics for Engineers,
!! CRC Press, Boca Raton, FL, 2011.
!! http://www.crcpress.com
!! Other distribution is prohibited without permission.

Contents

Set up the parameters

s=25;sp=5;  % object and image distances
a=(s+sp)/2;b=sqrt(s*sp);  % major and minor axis half-lengths

Plot the ellipsoid

thetad=(0:360)-180;  % Plot the ellipsoid
x=b*sind(thetad);z=a-a*cosd(thetad);
fig1=figure;plot(z,x,':');
hold on;
plot(z(180+(-50:50)),x(180+(-50:50)),'-',...
                 [s,z(180+30),sp],[0,x(180+30),0],'--',...
                 [s,a,sp],[0,b,0],'--',...
                 [s,a,a,s],[0,0,b,0],'-',...
                 [0,2*a],[0,0],'k-.',...
                 [s,sp],[0,0],'ko');
axis equal;xlabel('z');ylabel('x')
text(s,-b/4,'S');