|
%矩孔衍射的解析计算
8 y0 t8 W% J8 U9 {" w9 {9 aclear;3 |; f& }0 v- t' m7 P, ~
R=0.1;
% M3 t7 b9 @1 E1 E& r: ~lambda=1.064e-3;1 L1 n$ p: z8 q1 S
k=2*pi/lambda;
+ c! t5 X1 V# E+ f8 J# R Vz=1.0e3;8 P+ T) w$ n! e- M; \+ L( H6 j
xmax=8*1.22*lambda/2/R*z;) ^ r7 N3 Y7 e
x=linspace(-xmax,xmax,200);
`% n0 ]2 w+ B7 g- n) yy=x;
' ] s, N$ Y' K3 g* G; A6 e, g[x,y]=meshgrid(x,y);
9 I, R g' T" ]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;
) l# F1 P9 P: ~1 o/ G5 asurf(x,y,IF.ˆ(1/2));
% @ Y. m/ f/ Pcolormap(’hot’)
, e9 K4 a0 @1 H2 P) A/ baxis equal
3 Y) h D$ O: t% {. h& Z% D$ zshading interp;* S+ x' S% E. Z9 O
|
|