function tiaoxing(bochang,N,m,L,handles) `Q(ac|
0
global n :R_{tQ-WG
global point '12|:t&7
k=2*pi/bochang; 4#2iL+
a=m*1e+006; :WA o{|&
deltax=2*a/point;%取单位长度 bk6$+T=>
xx=-a:deltax:a; JEHV\=
L=L*1e+006; o4~ft!>
nn=length(xx); j~Gu;%tq
u=ones(1,nn); w,}}mC)\*
jj=1:nn; "E''ZBLO~
for n=1:N %进行迭代 &2xYG{Z
iU%Gvf^?'5
for b=1:nn m]"YR_
uu(b)=sqrt(i*exp(-i*k*L)/(bochang*L)).*... uhc0,V;S
sum(exp(-i*k*((b-jj)*deltax).^2./(2*L)).*u)*deltax;% :!} zdeRJ
mu{%%b7|^
end lZ)u4_
EL}v>sC
ma=max(uu);%归一化 `=KrV#/758
uu=uu./ma; v$tS2N2
u=uu; HqF8:z?v
axes(handles.axes1); B:mlBSH
plot(xx,abs(u)) 8dA/dMQ
axes(handles.axes2); @tj0Ir v
plot(xx,angle(u)) @nc!(P7_
set(handles.edit10,'string',num2str(n));%迭代次数显示到面板 _-!6@^+
End