%
% Optical Imaging and Spectroscopy
%
% David J. Brady
% Duke University
% www.opticalimaging.org
%
% Figure 6.7
%
%
% Image of two point interference for a gaussian line of width dlambda
%
figure(1);set(gcf,'color','white');
%delta x over d
dxd=.1;
dlambda=10*10^-3; %microns
lambdao=0.6;
c=3*10^14;
dsig=dlambda/lambdao^2;
%
% x is coordinate value in the plane
%
x=linspace(-20*lambdao^2/dlambda,20*lambdao^2/dlambda,2048); %microns
I=2+2*cos(2*pi*dxd*x/lambdao).*exp(-pi*dsig^2*dxd^2*x.^2);
subplot(2,2,2);plot(x(950:1100),I(950:1100),'-k');
%figure(2);set(gcf,'color','white');
subplot(2,1,1);plot(x,I,'-k');xlabel('mircrons');ylabel('I(x)');hold on;
subplot(2,1,2);plot(x(950:1100),I(950:1100),'-k');
