【光学】基于matlab模拟双孔干涉附matlab代码

1 内容介绍

通过Matlab软件编程,实现光学双缝干涉的计算机仿真.仿真结果对学生理解光学原理的基本概念很有帮助,提高了教学效果.

2 部分代码​

%REDME!!!该仿真模拟了双孔干事实验中光屏逐渐远离双孔时干涉图像的变化，按空格键仿真停止

%—————————————————————————————————————

flag = 1;

t = 0;

d = 0.2;                                            %两孔的距离（两孔中心正对干涉屏中心）

%默认两孔平行于X轴

Lambda = 500e-6;                                    %干涉光波长（mm）

x_scale = 120;                                      %图像长度

y_scale = 4000;                                     %图像宽度

x_temp = linspace(-x_scale/2, x_scale/2, 601);

y_temp = linspace(-y_scale/2, y_scale/2, 501);

[X, Y] = meshgrid(x_temp, y_temp);                  %创建网格矩阵用于二维绘图

while flag

    input = get(gcf, 'currentkey');

    if strcmp(input, 'space');

        clc;

        flag = 0;

    end

    D = 1500 + t;                                           %双孔到干涉屏的距离（mm）

    R1 = sqrt((X-d/2).^2+Y.^2+D^2);

    R2 = sqrt((X+d/2).^2+Y.^2+D^2);                     %计算网格坐标点到两孔的距离

    Delte = (R1-R2)/Lambda * 2*pi;                      %计算网格坐标点到两孔的相位差

    I = (1./R1).^2 + (1./R2).^2 + 2*(1./R1).*(1./R2).*cos(Delte);

    %计算两孔到网格坐标点的相对光强

    image(56 * I * D^2);                                %开始绘图

    colormap gray;

    axis off;

    axis equal;

    title('杨氏双孔干涉(Young’s double pinhole interference)','FontSize',12);

    pause(0.2);

    t = t + 15;

end

3 运行结果

4 参考文献

[1]赵鑫. 基于Matlab的光学双缝干涉实验仿真[J]. 科学中国人, 2015(12Z):1.

博主简介：擅长智能优化算法、神经网络预测、信号处理、元胞自动机、图像处理、路径规划、无人机、雷达通信、无线传感器等多种领域的Matlab仿真，相关matlab代码问题可私信交流。

部分理论引用网络文献，若有侵权联系博主删除。