光栅衍射计算机仿真分析.docVIP

光栅衍射的计算机仿真分析 程序如下： clear L=0.000632; f=64; a=0.005; d=0.02; N=5; x=linspace(-3*pi,3*pi,1000); for j=1:1000 u=(pi*a/L)*((x(j)/(sqrt(x(j)^2+f^2)))); I(j)=((sin(u)/u).^2)*((sin(d*u*N/a)/sin(d*u/a)).^2); end NCLevels=255; Ir=NCLevels*I; figure colormap(gray(NCLevels)); subplot(2,1,2),image(x,I,Ir) subplot(2,1,1),plot(x,I(:)/max(I)); N=5 N=50 N=1 光学干涉的计算机仿真实验 3．牛顿环 L=589.3e-6;R=3000;NCLevels=256; x=-4:8/1000:4;y=x; [X,Y]=meshgrid(x,y); I=cos((pi*(X.^2+Y.^2)/R+L/2)/L).^2; colorma