Parameter study for defocused Airy point spread function
Find the parameters for defocusing the Airy and Gaussian PSFs. Uses a unit intensity for a centroid at [0,0]. The defocused Airy PSF requires the camera focal length and aperture and the wavelength of light. We specify a pixel width and draw it on the plots so we can see if we are defocusing enough.
See also RHSGaussianPSF, RHSAiryDefocusedPSF, RHSMoffatPSF
Contents
%-------------------------------------------------------------------------- % Copyright (c) 2014 Princeton Satellite Systems. % All Rights Reserved. %-------------------------------------------------------------------------- % Since 2016.1 %--------------------------------------------------------------------------
The defocused parameter
The aim is to spread a star's PSF over multiple pixels on the actual camera. Assume a pixel is 13 microns wide.
% Optical parameters in mm %-------------------------- f = 50; % focal length a = 15; % aperture % Wavelength of light in nm %-------------------------- lambda = 600; % Pixel in um %------------ wPixel = 13; % Center of image %---------------- r0 = [0;0]; % Defocused %----------- dD.d.lambda = lambda; dD.d.f = f; dD.d.a = a; dD.d.bD = 0; dD.r = r0; dD.i = 1; x = linspace(-30,30,1000); % um y = zeros(1,length(x)); fD0 = RHSAiryDefocusedPSF(x,y,dD); dD.d.bD = 2; fD2 = RHSAiryDefocusedPSF(x,y,dD); dD.d.bD = 4; fD4 = RHSAiryDefocusedPSF(x,y,dD); dD.d.bD = 3*pi; fD10 = RHSAiryDefocusedPSF(x,y,dD); iA = RHSAiryDefocusedPSF(r0(1),0,dD); % peak value % Plot %------ Plot2D(x,[fD0;fD2;fD4;fD10],'x (um)','PSF','Defocus Parameter','lin', [], [], [], [], 1 ) legend('Bd = 0','Bd = 2','Bd = 4','Bd = 3pi') yA = axis; hold on plot([wPixel wPixel]/2,[0 yA(4)],'k','linewidth',2) plot(-[wPixel wPixel]/2,[0 yA(4)],'k','linewidth',2)

Compare defocused to simpler PSFs
% Gaussian %---------- dG.d.sigma = 5; % um dG.r = r0; dG.i = iA; fG = RHSGaussianPSF(x,y,dG); % Moffat %------- dM.d.rho = 5; % um dM.d.beta = 1; % um dM.r = r0; dM.i = iA; fM = RHSMoffatPSF(x,y,dM); % Plot %------ Plot2D(x,[fG;fM;fD10],'x (mm)','PSF','PSF Comparison','lin', [], [], [], [], 1 ) yA = axis; hold on plot([wPixel wPixel]/2,[0 yA(4)],'k','linewidth',2) plot(-[wPixel wPixel]/2,[0 yA(4)],'k','linewidth',2) legend('Gaussian \sigma = 5','Moffat','Airy, bD = 3pi') %-------------------------------------- % $Id: 119fc15516d734ec332da0780f173c450a5b434e $
