|
%矩孔衍射的解析计算
0 ]6 v. `$ o# a' |* U4 j2 Qclear;
2 M2 g d6 P; u. z$ d: u$ PR=0.1;8 J! R. j6 v% _# B# P
lambda=1.064e-3;) V' D* I) C+ J, V
k=2*pi/lambda;
$ ~; K# U- L* T7 y3 w( |, nz=1.0e3;. e8 c9 P6 a$ ^. W, f' p& E
xmax=8*1.22*lambda/2/R*z;
0 @$ F) E0 B* Q# Q' q& Rx=linspace(-xmax,xmax,200);
+ t# c- }$ @: s) g5 h5 ]y=x;6 I( T4 c7 P$ A
[x,y]=meshgrid(x,y);7 E. G& I! A" B) H2 |8 u8 }* A# J
IF=sin(k*x*R/z).ˆ2.*sin(k*y*R/z).ˆ2./(k*x/2/z).ˆ2./(k*y/2/z).ˆ2/lambdaˆ2/zˆ2;
( f- W3 x5 w$ d7 Nsurf(x,y,IF.ˆ(1/2));1 q- ~$ l! L0 w* P" a" B
colormap(’hot’)
( {: E+ M2 w8 Y! N& daxis equal7 E7 z+ y, W7 R T8 k) z" t D
shading interp;
, f, J0 D" r. l; g8 e! Q |
|