6 qK0G$> :\*hAV1i 圆孔
衍射程序如下：
xa #:oKF3 U/M(4H3>H lmda=500e-9;
3:a}<^DuCS r=1e-3;
S{Au%Rs f=1;
G{ rUqo xm=2000*lmda*f;
AAsl ) xs=linspace( -xm,xm,2000);
j>M
'nQ,;d ys=xs;
/n7F]Ok'* [x,y]=meshgrid(xs);
VG'o y s=2*pi*r*sqrt(x.^2+y.^2)./(lmda*f);
(J):
>\a] z=4*(besselj(1,s)./(s+eps)).^2;
-9{}rE subplot( 2,2,1)
p;) ;Vm+8 imshow( z* 255) ; %平面图
"2CiW6X[M title( '非单色光圆孔衍射光强')
CS cM;U= xlabel( 'x')
+I 2P{ 7 ylabel( 'y')
K +H?,I subplot( 2,2,2)
r 3w. $ mesh( x,y,z) %三维图
/'G'GQrr colormap( gray)
q o.~5
xlabel( 'x')
h
GS";g[? ylabel( 'y')
o C U8;z zlabel( '光强')
~SJOynSz, 圆盘衍射公式
&P!^k0NJR 
p7 !q#o l~&efAJ-$ 求助代码
`S<uh9/ 或者用
信息光学求的也行
