function tiaoxing(bochang,N,m,L,handles) )cKtc
global n hRa(<Z K
global point :n4:@L<%H
k=2*pi/bochang; @ZkAul0@
a=m*1e+006; )*K<;WIWH
deltax=2*a/point;%取单位长度 n*i'v tQ8
xx=-a:deltax:a; T$^>Fiz{Se
L=L*1e+006;
X'#$e{
nn=length(xx); -j`!(IJ
u=ones(1,nn); q= yZx)
jj=1:nn; blfE9Oy
for n=1:N %进行迭代 k=mT!
fAMD2C
for b=1:nn 4-+ozC{
uu(b)=sqrt(i*exp(-i*k*L)/(bochang*L)).*... h lkvk]v
sum(exp(-i*k*((b-jj)*deltax).^2./(2*L)).*u)*deltax;% E/7vIg
F
$EQT"ZX>%i
end :#\B {)(
qHR^0&
ma=max(uu);%归一化 _(6B.
uu=uu./ma; [7e{=\`=
u=uu; c2/R]%`)9
axes(handles.axes1); rO(TG
plot(xx,abs(u)) Z;fm;X%4
axes(handles.axes2); B)"#/@!bHH
plot(xx,angle(u)) uRm _
set(handles.edit10,'string',num2str(n));%迭代次数显示到面板 l$-=Pqb
End