基于S-FFT的衍射计算

最新推荐文章于 2022-02-09 17:00:36 发布

DTI0701

最新推荐文章于 2022-02-09 17:00:36 发布

阅读量3.8k

点赞数 4

分类专栏：全息显示

本文链接：https://blog.csdn.net/zhuiyuekg/article/details/104599774

版权

全息显示专栏收录该内容

7 篇文章 47 订阅

订阅专栏

基于S-FFT的矩形孔衍射计算
光波是一种电磁波，它满足麦克斯韦方程组，将光波表示成球面波的形式，根据推导 $[1 - 4]$ ，可以获得标量场下光波的菲涅尔衍射积分的表达式如下
$U(x,y)=\frac{\exp(jkd)}{j \lambda d} \iint_{-\infty}^{\infty}U_0(x_0,y_0)\exp(\frac{jk}{2d}[(x-x_0)^2+(y-y_0)^2])dxdy$
上述式子中 $x_0y_0,xy$ 分别为衍射面和观察面的平面坐标系， $U_0(x,y)$ 为物平面函数， $k$ 为波数， $\lambda$ 为光波波长。将上式改写为离散的傅里叶变换的形式为
$U(p\Delta x,q\Delta y) = \frac{\exp(jkd)}{j\lambda d}\exp[\frac{jk}{2d}(p\Delta x^2)+q\Delta y^2]\\\times \digamma[U_0(m\Delta x_0,n\Delta y_0)\times\exp(\frac{jk}{2d}(m\Delta x_0)^2,(n\Delta y_0)^2)]_{\frac{p\Delta x}{\lambda d},\frac{p\Delta y}{\lambda d}}$
其中 $\digamma$ 表示傅里叶变换，设衍射平面尺寸为 $L_0$ ，观察平面为 $L$ ，采样数为 $N$ ，则两者的关系可以由下式表示
$L_0=\frac{N\lambda d}{L}$
根据以上的公式及说明，编写矩形孔的衍射计算小程序(MATLAB)具体如下：

r=512,c=r;                              %抽样数
a=zeros(r,c);                          %预设衍射面
a(r/2-r/4:r/2+r/4,c/2-c/4:c/2+c/4)=1;  %生成衍射孔
lamda=6328*10^(-10);k=2*pi/lamda;      %波长、波数
L0=5*10^(-3);                          %衍射面尺寸，单位:米
d=0.1;                                 %衍射距离,单位:米 
x0=linspace(-L0/2,L0/2,c);             %衍射面x轴坐标
y0=linspace(-L0/2,L0/2,r);             %衍射面y轴坐标
[x0,y0]=meshgrid(x0,y0);               %衍射面二维坐标网格
L=r*lamda*d/L0,                        %观察面的尺寸,单位:米
x=linspace(-L/2,L/2,c);                %观察面x轴坐标
y=linspace(-L/2,L/2,r);                %观察面y轴坐标
[x,y]=meshgrid(x,y);                   %观察面二维坐标网格
%下面开始用式（3-4）计算衍射积分
F0=exp(j*k*d)/(j*lamda*d)*exp(j*k/2/d*(x.^2+y.^2)); % 赋值exp(ikd)/(iλd)exp[ik(x2+y2) /2d]
F=exp(j*k/2/d*(x0.^2+y0.^2));          %赋值exp[ik (x02+y02) /2d]
a=a.*F;                                     %赋值U0(x0,y0)exp[ik (x02+y02) /2d]
Ff=fftshift(fft2(a));                  %完成U0(x0,y0)exp[ik (x02+y02) /2d]的傅里叶变换
Fuf=F0.*Ff;                            %得到观察面上的光场分布U (x,y)
I=Fuf.*conj(Fuf);                      %计算观察面上的光强分布
figure,
subplot(1,2,1),imshow(I,[0,max(max(I))]),colormap(gray)
subplot(1,2,2),imshow(max(max(I))-I,[]),colormap(gray)

参考书目
[1] 古德曼，傅里叶光学导论[M]，北京：电子工业出版社，2006，第3版
[2]李俊昌，衍射计算及数字全息[M]，北京：科学出版社，2014
[3] 钱晓凡，信息光学数字实验室[M]，北京：科学出版社，2014
[4]陈家壁，苏显渝.光学信息技术原理及应用[M].北京：高等教育出版社，2001