基于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
图 迈克尔逊仿真图