function tiaoxing(bochang,N,m,L,handles)
0`n
5x0R global n
v=p0 +J> global point
t$ZkdF k=2*pi/bochang;
<*Ub2B[m a=m*1e+006;
k[9A,N^lZB deltax=2*a/point;%取單位長(zhǎng)度
m}5q]N";x xx=-a:deltax:a;
c'05{C L=L*1e+006;
m*oc)x7' nn=length(xx);
Uh}X<d/V u=ones(1,nn);
4AHL3@x jj=1:nn;
A1-qtAO] for n=1:N %進(jìn)行迭代
Qq3fZ= t`u!]DHv for b=1:nn
Tpzw=bC^ uu(b)=sqrt(i*exp(-i*k*L)/(bochang*L)).*...
yX!#a>d"H sum(exp(-i*k*((b-jj)*deltax).^2./(2*L)).*u)*deltax;%
ezZph"& &{W^W8,% end
rk,p!}FqL 9":2"<'+ ma=max(uu);%歸一化
O2