function tiaoxing(bochang,N,m,L,handles)
!p3vnOX6 global n
^%/d]Zwb global point
fCi1JH; k=2*pi/bochang;
- s0QEQ a=m*1e+006;
@BqSu|'Du, deltax=2*a/point;%取單位長度
U_5\FM xx=-a:deltax:a;
FMAt6HfU L=L*1e+006;
sT>l ?L nn=length(xx);
uG4Q\,R u=ones(1,nn);
./}W3 jj=1:nn;
RGLi#:0_.x for n=1:N %進(jìn)行迭代
5}`e"X iIU>:)i for b=1:nn
s6_[H uu(b)=sqrt(i*exp(-i*k*L)/(bochang*L)).*...
>('Z9<|r: sum(exp(-i*k*((b-jj)*deltax).^2./(2*L)).*u)*deltax;%
Q5tx\GE o*s3"Ib end
x$24Nc1a' r#WAS2.TP ma=max(uu);%歸一化
=%9j8wHX uu=uu./ma;
i}Cy q u=uu;
{_]<mw