我的Matlab'；PSF的代码是什么？

我试着用Zernike多项式像差来模拟点扩散函数。为了练习它，我引用了来自电子书“计算傅立叶光学MATLAB教程-David Voelz”的代码。下面是我的Zernike多项式畸变点扩散函数：

 %Sampling
 M=1024; 
 L=1e-3; 
 du=L/M; 
 u=-L/2:du:L/2-du; v=u; 

 %Parameters of the lens
 lambda=0.55e-6; 
 k=2*pi/lambda; 
 Dxp=20e-3; wxp=Dxp/2;  %lens size
 zxp=100e-3;  %focal lengrh
 lz=lambda*zxp;

 % aberration coefficients
 z2 = 0*lambda;        
 z3 = 0*lambda;        
 z4 = 0*lambda;        
 z5 = 0*lambda;        
 z6 = 0*lambda;        
 z7 = 0*lambda;        
 z8 = 0*lambda;        
 z9 = 0*lambda;        
 z10 = 0*lambda;
 z11 = 0*lambda;

 fu=-1/(2*du):1/L:1/(2*du)-(1/L); %image freq coords
 [Fu,Fv]=meshgrid(fu,fu);

 % wavefront
 W=zernike_10(-lz*Fu/wxp,-lz*Fv/wxp,...
              z2,z3,z4,z5,z6,z7,z8,z9,z10,z11);

 % coherent transfer function
 H=circ(sqrt(Fu.^2+Fv.^2)*lz/wxp).*exp(-j*k*W);

 % point spread function
 h2=abs(ifftshift(ifft2(fftshift(H)))).^2;

 figure(1) % psf image and profiles
 imagesc(u,v,nthroot(h2,2)); axis xy; axis square
 xlabel('u (m)'); ylabel('v (m)'); colormap('gray')


 function[zer] = zernike_10(X,Y,...
            z2,z3,z4,z5,z6,z7,z8,z9,z10,z11)

   p = sqrt(X.^2 + Y.^2);
   a = atan2(Y,X);

 %zernike polynomial

 zer = 1+z2*2*p.*cos(a)+...
     z3*2*p.*sin(a)+...
     z4*sqrt(3)*(2*p.^2-1)+...
     z5*sqrt(6)*(p.^2)*sin(2*a)+...
     z6*sqrt(6)*(p.^2)*cos(2*a)+...
     z7*sqrt(8)*(3*p.^3-2*p)*sin(a)+...
     z8*sqrt(8)*(3*p.^3-2*p)*cos(a)+...
     z9*sqrt(8)*(p.^3)*sin(3*a)+...
     z10*sqrt(8)*(p.^3)*cos(3*a)+...
     z11*sqrt(5)*(6*p.^4-6*p.^2+1);
 end

 %circle function
 function[out]=circ(r)

 out=abs(r)<=1;

 end 

%采样
M=1024；
L=1e-3；
du=L/M；
u=-L/2:du:L/2-du；v=u；
%透镜参数
λ=0.55e-6；
k=2*pi/lambda；
Dxp=20e-3；wxp=Dxp/2；%镜头尺寸
zxp=100e-3；%焦距
lz=λ*zxp；
%像差系数
z2=0*λ；
z3=0*λ；
z4=0*λ；
z5=0*λ；
z6=0*λ；
z7=0*λ；
z8=0*λ；
z9=0*λ；
z10=0*λ；
z11=0*λ；
fu=-1/（2*du）：1/L:1/（2*du）-（1/L）；%图像频率坐标
[Fu，Fv]=网格网格（Fu，Fu）；
%波前
W=zernike_10（-lz*Fu/wxp，-lz*Fv/wxp，。。。
z2，z3，z4，z5，z6，z7，z8，z9，z10，z11）；
%相干传递函数
H=循环（sqrt（Fu.^2+Fv.^2）*lz/wxp.*exp（-j*k*W）；
%点扩散函数
h2=abs（ifftshift（ifft2（FFTSShift（H）））。^2；
图（1）%psf图像和剖面图
imagesc（u，v，n根（h2，2））；xy轴；轴线广场
xlabel（'u（m）'）；ylabel（'v（m）'）；颜色映射（'灰色'）
函数[zer]=zernike_10（X，Y，。。。
z2，z3，z4，z5，z6，z7，z8，z9，z10，z11）
p=sqrt（X.^2+Y.^2）；
a=atan2（Y，X）；
%泽尼克多项式
zer=1+z2*2*p.*cos（a）+。。。
z3*2*p*sin（a）+。。。
z4*sqrt（3）*（2*p.^2-1）+。。。
z5*sqrt（6）*（第^2页）*sin（2*a）+。。。
z6*sqrt（6）*（第^2页）*cos（2*a）+。。。
z7*sqrt（8）*（3*p.^3-2*p）*sin（a）+。。。
z8*sqrt（8）*（3*p.^3-2*p）*cos（a）+。。。
z9*sqrt（8）*（第^3页）*sin（3*a）+。。。
z10*sqrt（8）*（第^3页）*cos（3*a）+。。。
z11*sqrt（5）*（6*p.^4-6*p.^2+1）；
结束
%圆函数
函数[out]=circ（r）
out=防抱死制动系统（右）