W } Q13>z%Rge 圆孔
衍射程序如下:
c?t,,\o(} *%aWGAu: lmda=500e-9;
17ol %3 M r=1e-3;
{x\lK; f=1;
tPz!C&.= xm=2000*lmda*f;
rk)h_zN xs=linspace( -xm,xm,2000);
~a06x^=j ys=xs;
vwIP8z~< [x,y]=meshgrid(xs);
0ME.O+ s=2*pi*r*sqrt(x.^2+y.^2)./(lmda*f);
XNaiMpp' z=4*(besselj(1,s)./(s+eps)).^2;
QT)5-Jy subplot( 2,2,1)
f2]O5rXp imshow( z* 255) ; %平面图
=C4!h'hz title( '非单色光圆孔衍射光强')
qgkC) xlabel( 'x')
;a9`z+ K ylabel( 'y')
mIYM+2p subplot( 2,2,2)
%|o2d&i mesh( x,y,z) %三维图
vD91t/_+ colormap( gray)
iZ;y( xlabel( 'x')
Hq!|( ylabel( 'y')
5~H}%W,P zlabel( '光强')
iji2gWV}h 圆盘衍射公式
|HfN<4NL
F- l!i/ \eoJ6IRE\T 求助代码
oaGpqjBGQ 或者用
信息光学求的也行