基于matlab的迈克尔逊干涉仿真

  • 格式:doc
  • 大小:67.50 KB
  • 文档页数:2

基于matlab的迈克尔逊干涉仿真

clear;

xmax=10;ymax=10;

Lambad=632.8e-006;f=200;

n=1.0;

N=150;

x=linspace(-xmax,xmax,N);

y=linspace(-ymax,ymax,N);

for k=0:15

d=0.39-0.00005*k;

for i=1:N

for j=1:N

r(i,j)=sqrt(x(i)*x(i)+y(j)*y(j));

B(i,j)=cos(pi*(2*n*d*cos(asin(n*sin(atan(r(i,j)/f)))))/Lambad).^2;

end

end

figure(gcf);

N=255;

Br=2.5*B*N;

image(x,y,Br);

colormap(gray(N));

set(gca,'XTick',[]); set(gca,'YTick',[]);

drawnow

pause

end

图 迈克尔逊仿真图