function tiaoxing(bochang,N,m,L,handles) (oB9$Zz!t
global n <a=k"'0
global point :2MHx}]il
k=2*pi/bochang; G=>LW1E|
a=m*1e+006; vUgo)C#<
deltax=2*a/point;%取单位长度 CQ#%v%
xx=-a:deltax:a; tSq`_[@
L=L*1e+006; EYU3Pl%
nn=length(xx); X-5&c$hv
u=ones(1,nn); \E,Fe:/g
jj=1:nn; ;%Zn)etu
for n=1:N %进行迭代 }"AGX
v,mn=Q&9
for b=1:nn _"sFLe{
uu(b)=sqrt(i*exp(-i*k*L)/(bochang*L)).*... G `JXi/#`
sum(exp(-i*k*((b-jj)*deltax).^2./(2*L)).*u)*deltax;% k&3'[&$I*,
Sv03="&
end M-NY&