[求助]Matlab循环语句模拟菲涅尔衍射算法求助 [复制链接]

看了不少帖子发现大多数都是用傅里叶变换法来模拟菲涅耳衍射的算法，我想问问有没有大神指导下如何通过循环语句来计算菲涅尔衍射的结果呢？ [c
EGkz
 
A_ &IK;-go  
思路是这样的，首先生成一个矩阵来模拟通过孔径光阑的光，以方孔为例，比如100*100的矩阵中心只有20*20的元素为1，其余为0。在光屏部分对应的分别计算模拟接收屏100*100矩阵每个点元素的衍射结果来描述衍射的结果。 S/pU|zV[
 
Hr}"g@ <  
从网上找到一个类似的例子是计算夫琅禾费衍射的，代码如下： O\o@]  
"38<14V
 
R=0.1; MW+DqT.h  
lambda=1.064e-3; *Uy>F[%@  
k=2*pi/lambda; ^)Y3V-@t  
z=1.0e3; }D)eS |B  
r=linspace(0,2*1.22*lambda/2/R*z,201); Yyd}>+|<,  
eta=linspace(0,2*pi,201); Zp_j\B  
[rho,theta]=meshgrid(r,eta); {U3jJ#K  
[x,y]=pol2cart(theta,rho); 0^J%&1aIc  
r0=linspace(0,R,201); 5z3WRg
 
eta0=linspace(0,2*pi,201); KgD$P(J:[  
[rho0,theta0]=meshgrid(r0,eta0); x~Z7p)D_<  
[x0,y0]=pol2cart(theta0 ,rho0); 6?US<<MQ  
deta=R/200*2*pi/200; 3K~^H1l  
E2=zeros(201,1); ?uTuO  
for gk=1:201 rttKj{7E  
   for m=1:200 bL0]Yuh  
     for n=1:201 ]P7gEBi  
E2(gk)=E2(gk)-j/lambda/z*exp(((x(1,gk)^2+y(1,gk)^2)/z/2+z)*j*k)*exp(j*k*(x(1,gk)*x0(m,n)+y(1,gk)*y0(m,n))/z)*deta*rho0(m,n); 5Y`4%*$  
     end }lPWA/  
   end a}VR>!b  
end 8,+T[S  
Ie=conj(E2).*E2; plot(r,Ie,'k',-r,Ie,'k'); hF^JSCDz l  
LR#.xFQ+  
不明白的地方是，计算一维分布如何带入严格的菲涅耳-基尔霍夫标量衍射公式呢？不用傅里叶变换法的话很难计算积分啊。。因为不是很懂坛子里大神发的fft法模拟衍射，所以想用简单的思路来解决问题。。还有怎么把一维的计算结果可视化的表现出来呢？刚学matlab好多都不太明白啊

速度怎么样啊

看不懂