Matlab光学仿真泊松亮斑（圆盘衍射）

圆孔衍射程序如下：

lmda=500e-9;
r=1e-3;
f=1;
xm=2000*lmda*f;
xs=linspace( -xm,xm,2000);
ys=xs;
[x,y]=meshgrid(xs);
s=2*pi*r*sqrt(x.^2+y.^2)./(lmda*f);
z=4*(besselj(1,s)./(s+eps)).^2;
subplot( 2,2,1)
imshow( z* 255) ; %平面图
title( '非单色光圆孔衍射光强')
xlabel( 'x')
ylabel( 'y')
subplot( 2,2,2)
mesh( x,y,z) %三维图
colormap( gray)
xlabel( 'x')
ylabel( 'y')
zlabel( '光强')
圆盘衍射公式
[attachment=55803]

求助代码
或者用信息光学求的也行

mang2004	2014-04-28 20:53
看不懂楼主公式的含义。根据自己理解写的圆盘远场衍射。 \|Zncr9b 多交流。 sf@g $ [attachment=55911]

mang2004	2014-04-29 01:04
又：附图是楼主手写公式的一个数值解, 是否合理？我没法理解其物理意义。 kT!FC0E{ 多交流。 f4CwyL6ur [attachment=55912] UACWs3`s+

巫毒	2014-04-29 12:09
谢谢你的回复 RWz^ MV5K 关于圆盘衍射你的理解是不是大圆孔减去小圆孔 ^t?P32GJ 还有你可不可以给我你的程序像平面灰度图和光强图 7P.C~,+D%P $@7S+'Q3 [attachment=55928] Nq"/:3@4 39BGwKXb w-"o?;)a

mang2004

2014-04-30 10:02

巫毒:谢谢你的回复 ik=~`3Zp0
关于圆盘衍射你的理解是不是大圆孔减去小圆孔 s"*zyLUUo
还有你可不可以给我你的程序像平面灰度图和光强图 XnHcU=~q
[图片] \`Db|D?oy
....... (2014-04-29 12:09) ?H#]+SpOcv

我如何理解并不重要，按照衍射理论和边界条件一步步推导出来，想必你也没问题。另我的程序就在两个回复中已经公开了，用mathcad写成，你自己费神转转吧，--- 年纪大了对用matlab作出的花哨东西越来越没兴趣了。

yves_tse	2014-04-30 23:22
最近我要好好学习matlab H-K,Q%;C@

朽木2015	2014-05-04 22:08
最近我要好好学习matlab H+2m h3$.` >l

彭亦超	2016-01-05 11:08
学习一下

yfloy	2017-08-18 23:32
学习了

查看本帖完整版本: [-- Matlab光学仿真泊松亮斑（圆盘衍射） --] [-- top --]