%
% Optical Imaging and Spectroscopy
%
% David J. Brady
% Duke University
% www.opticalimaging.org
%
% Figure 9.14
%
%
% Instrument function for a Fabry-Perot Spectrograph
%
%
%
%
% plot parameters
%
figure(1);set(gcf,'color','white');
N=2048; % samples per axis
nurange=linspace(0.9995,1.0005,N);
% 
% etalon parameters
%
uo=1/0.001;
urange=linspace(uo,(uo+1),10);
[u,nu]=meshgrid(urange,nurange);
n=1; %index of refraction
%r=0.9; % reflectivity
F=10; %finesse
F=4*F^2/pi^2; % coefficient of finesse
h=1./(1+F*sin(pi*u.*nu).^2);
plot(xrange,h','-k');xlabel('\nu/\nu_o');