function tiaoxing(bochang,N,m,L,handles) TiO"xMX
global n :F{:Z*Fi0
global point 5`gQ~
k=2*pi/bochang; /q5v"iX]T
a=m*1e+006; k|lcc^[0
deltax=2*a/point;%取单位长度 [N#,K02mk
xx=-a:deltax:a; pm_u
L=L*1e+006; I/L_@X<*r
nn=length(xx); bS"fkf9
u=ones(1,nn); pXtX jb
jj=1:nn; i-6F:\;
for n=1:N %进行迭代 Y<Fz)dQo
;bLEL"x%
for b=1:nn !`M|C?b
uu(b)=sqrt(i*exp(-i*k*L)/(bochang*L)).*... HP3lz,d
sum(exp(-i*k*((b-jj)*deltax).^2./(2*L)).*u)*deltax;% +L9Eqll
<\pfIJr$
end v4.#;F.\m
$}jssnoU
ma=max(uu);%归一化 !=:$lzS^
uu=uu./ma; TG+VEL |T
u=uu; lo,$-bJ,<,
axes(handles.axes1); yX0dbW~@y
plot(xx,abs(u)) bj"J'
axes(handles.axes2); ,H19`;Q
plot(xx,angle(u)) A?t%e
set(handles.edit10,'string',num2str(n));%迭代次数显示到面板 Vy938qX
End