Matlab在信息光学中应用ppt课件

.,1,Matlab在信息光学中的应用,一些衍射现象的计算机模拟李祥艳-05102133,.,2,一、单缝衍射模拟,.,3,.,4,单缝衍射计算机模拟代码,clc;clear;a=-2*pi:0.0001*pi:2*pi;p1=(1-sinc(a).2;%方便下面着色p2=sinc(a).2;figure;plot(a,p2);xlabel(kasin);ylabel(光强I/I0);title(单缝衍射强度分布);lgray=zeros(256,3);fori=0:255lgray(i+1,:)=(255-i)/255;endfigure;imagesc(p1)title(单缝衍射模拟图);colormap(lgray),.,5,多缝衍射,.,6,.,7,.,8,.,9,.,10,.,11,.,12,.,13,.,14,.,15,多缝衍射代码,clc;clear;n=input(多缝衍射缝数);a=-2*n*pi:0.0001*pi:2*pi*n;p1=1-(sin(n*a)./sin(a).2;%方便下面着色p2=(sin(n*a)./sin(a).2;figure;plot(a,p2);xlabel(kasin);ylabel(光强I/I0);title(多缝缝衍射强度分布);lgray=zeros(256,3);fori=0:255lgray(i+1,:)=(255-i)/255;endfigure;imagesc(p1)title(多缝衍射模拟图);colormap(lgray);,.,16,平面光栅衍射,.,17,.,18,.,19,.,20,.,21,.,22,.,23,.,24,.,25,平面衍射计算机模拟代码,clc;clear;n=input(平面衍射光栅数);d=-n*pi:0.0001*pi:pi*n;b=d/15;p1=1-(sinc(b).*sin(n*d)./sin(d).2;%方便下面着色p2=(sinc(b).*sin(n*d)./sin(d).2;figure;plot(d,p2);xlabel(kasin);ylabel(光强I/I0);title(多缝缝衍射强度分布);lgray=zeros(100,3);fori=0:99lgray(i+1,:)=(99-i)/99;endfigure;imagesc(p1)title(多缝衍射模拟图);colormap(lgray);,.,26,圆孔衍射,.,27,.,28,.,29,圆孔衍射代码,clear;N=1;K=6;x,y=meshgrid(linspace(0,N+1,800);z=x+i*y;u=0;form=1:N;forn=1:N;zk=abs(z-m+n*i)*K;u=u+0.1*besselj(4,zk)./zk;r=1-u;A=1-abs(u).2;endip=imshow(A,),.,30,矩孔衍射,.,31,.,32,矩孔衍射代码,x=zeros(30);x(10:20,10:20)=1imshow(x,-15)x=fft2(x,256,256);x=fftshift(x);imshow(log(abs(x),-15);,.,33,.,34,.,35,.,36,.,37,巴比涅互补原理,.,38,.,39,.,40,.,41,.,42,.,43,圆孔衍射代码,x,map=imread(yb.bmp);figure,imshow(x)figure,subplot(1,3,1);imshow(x)x=fft2(x,256,256);subplot(1,3,2);imshow(log(abs(x),-15);title(未移至中心频谱)x=fftshift(x);subplot(1,3,3);imshow(log(abs(x),-15);title(移至中心频谱),.,44,多缝衍射计算机模拟,.,45,.,46,.,47,.,48,旋转对频谱的影响代码,x1,map=imread(j1.bmp);figure;subplot(2,3,1);imshow(x1);x1=fft2(x1,256,256);x1=fftshift(x1);subplot(2,3,4);imshow(log(abs(x1),-15);x1,map=imread(j2.bmp);subplot(2,3,2);imshow(x1);x1=fft2(x1,256,256);x1=fftshift(x1);subplot(2,3,5);imshow(log(abs(x1),-15);x1,map=imread(j3.bmp);subplot(2,3,3);imshow(x1);x1=fft2(x1,256,256);x1=fftshift(x1);subplot(2,3,6);imshow(log(abs(x1),-15);,.,49,缝宽对夫瑯禾菲衍射的影响,.,50,缝宽对夫瑯禾菲衍射的影响代码,igure;fork=1:4;u=zeros(50,50);u(20:30,25:(24+k)=1;subplot(2,4,k);imshow(u);end;fork=5:8;u=zeros(50,50);u(20:30,25:(20+k)=1