Foxli迭代MATLAB程序

模拟激光谐振腔模式 %————初始化—————————————lm=632.8e-9; %波长L=100*lm; %腔长a=25*lm; %腔镜线宽k=2*pi/lm; %波失x1=linspace(-a,a,1000);%取1000个点积分Un_n=zeros(1,1000);Un_n_1=Un_n;%———求解第一次的迭代结果——————for m=1:1000 x=x1(m);y=exp((-i*k*(x-x1).^2)/(2*L));Un_n(m)=sqrt(i/(pi*L)*exp(-i*k*L))*sum(y(1:10