matlab仿真迈克尔逊干涉仪工作 单频非定域等倾干涉

如题目：（如果由错误还请大神多多指点）

迈克尔逊干涉仪应用广泛，在各种物理量的测量中都有应用，在此贴出迈克尔逊干涉仪的matlab仿真代码

%--程序说明
%用于仿真迈克尔逊干涉条纹的变化
%作者：白银浩 QQ：792499178
%时间：2017.8.29 
%--程序开始
clear;clc;close all
%--参数设定
xmax=40;ymax=40;%干涉条纹范围设定
Lambad=632.8e-006;%光波长的选择 此处用氦氖激光器
f=190;%扩束镜的焦距
n=1.0;%介质折射率 空气为1
N=800;%精度或分辨率，决定x，y的数据量
x=linspace(-xmax,xmax,N);
y=linspace(-ymax,ymax,N);
%--主循环
main;

仿真结果如图

此程序以上传于download位置