Ge-vWf-RbB tHwMX1 IG 圓孔
衍射程序如下：
P! #[mio BeoDKdAwY lmda=500e-9;
l&Q`wR 5e r=1e-3;
8&`L Ydzt f=1;
dvJ M6W>^= xm=2000*lmda*f;
#Kex vP&* xs=linspace( -xm,xm,2000);
U /l&tmIVY ys=xs;
Q:k}Jl [x,y]=meshgrid(xs);
X ))/ m[_[ s=2*pi*r*sqrt(x.^2+y.^2)./(lmda*f);
+Kbjzh3<wG z=4*(besselj(1,s)./(s+eps)).^2;
!58@p LJw subplot( 2,2,1)
PKg@[<g43 imshow( z* 255) ; %平面圖
sZ/v^ xk title( '非單色光圓孔衍射光強(qiáng)')
&H/'rd0M xlabel( 'x')
!_'ur>iR ylabel( 'y')
MC.) 2B7 subplot( 2,2,2)
z !rL
s76 mesh( x,y,z) %三維圖
"8jf81V* colormap( gray)
8(&[Rs?K xlabel( 'x')
UIN<2F_ ylabel( 'y')
GqaCj^2f zlabel( '光強(qiáng)')
~^fZx 5 圓盤衍射公式
YvyNHW& 
Ata:^qI P'[3Fqe 求助代碼
9} M ?P 或者用
信息光學(xué)求的也行
