牛顿环干涉条纹的模拟.docVIP

牛顿环干涉条纹的模拟 Length=5893e-7; R=0.9e+3 ; range=4;n=500;ny=linspace(-range,range,n); nx=ny; [X,Y]=meshgrid(nx,ny); flag=(X.^2+Y.^2)=range^2; h=image(nx,ny,255); axis equal; axis([-range range -range range]); I=4*cos(pi/Length*((X.^2+Y.^2)/R+Length/2)).^2; B=(I/4.0)*255; B(flag)=NaN; set(h ,xdata,nx ,ydata,ny ,cdata,B); mesh(X,Y,B) figure(2) pcolor(X,Y,B) load (niuDunHuan ,mycmap) set (figure(2) ,Colormap ,mycmap) axis equal ; axis square ; shading interp figure(3) x=-4:0.05; I1=4*cos(pi/Length*((x.^2)/R+Length/2)).^2; plot(x,I1,k)