【光学】双孔干涉【含GUI Matlab源码 2119期】

⛄一、获取代码方式

获取代码方式1：
完整代码已上传我的资源：【光学】基于matlab GUI双孔干涉【含Matlab源码 2119期】
点击上面蓝色字体，直接付费下载，即可。

获取代码方式2：
付费专栏Matlab物理应用（初级版）

备注：
点击上面蓝色字体付费专栏Matlab物理应用（初级版），扫描上面二维码，付费29.9元订阅海神之光博客付费专栏Matlab物理应用（初级版），凭支付凭证，私信博主，可免费获得1份本博客上传CSDN资源代码（有效期为订阅日起，三天内有效）；
点击CSDN资源下载链接：1份本博客上传CSDN资源代码

⛄二、部分源代码

function varargout = MainShuangKongGanShe(varargin)
% MAINSHUANGKONGGANSHE MATLAB code for MainShuangKongGanShe.fig
% MAINSHUANGKONGGANSHE, by itself, creates a new MAINSHUANGKONGGANSHE or raises the existing
% singleton*.
%
% H = MAINSHUANGKONGGANSHE returns the handle to a new MAINSHUANGKONGGANSHE or the handle to
% the existing singleton*.
%
% MAINSHUANGKONGGANSHE(‘CALLBACK’,hObject,eventData,handles,…) calls the local
% function named CALLBACK in MAINSHUANGKONGGANSHE.M with the given input arguments.
%
% MAINSHUANGKONGGANSHE(‘Property’,‘Value’,…) creates a new MAINSHUANGKONGGANSHE or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before MainShuangKongGanShe_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to MainShuangKongGanShe_OpeningFcn via varargin.
%
% *See GUI Options on GUIDE’s Tools menu. Choose “GUI allows only one
% instance to run (singleton)”.
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help MainShuangKongGanShe

% Last Modified by GUIDE v2.5 09-Sep-2022 22:41:56

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct(‘gui_Name’, mfilename, …
‘gui_Singleton’, gui_Singleton, …
‘gui_OpeningFcn’, @MainShuangKongGanShe_OpeningFcn, …
‘gui_OutputFcn’, @MainShuangKongGanShe_OutputFcn, …
‘gui_LayoutFcn’, [] , …
‘gui_Callback’, []);
if nargin && ischar(varargin{1})
gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT

% — Executes just before MainShuangKongGanShe is made visible.
function MainShuangKongGanShe_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% varargin command line arguments to MainShuangKongGanShe (see VARARGIN)

% Choose default command line output for MainShuangKongGanShe
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes MainShuangKongGanShe wait for user response (see UIRESUME)
% uiwait(handles.figure1);

% — Outputs from this function are returned to the command line.
function varargout = MainShuangKongGanShe_OutputFcn(hObject, eventdata, handles)
% varargout cell array for returning output args (see VARARGOUT);
% hObject handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;

% — Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

global flag t X Y d Lambda;
flag = 1;
t = 0;
d = eval(handles.edit_fk.String); %两孔的距离（两孔中心正对干涉屏中心）
%默认两孔平行于X轴
Lambda = eval(handles.edit_bc.String) * 1e-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); %创建网格矩阵用于二维绘图
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 * 2pi; %计算网格坐标点到两孔的相位差
I = (1./R1).^2 + (1./R2).^2 + 2(1./R1).*(1./R2).*cos(Delte);
%计算两孔到网格坐标点的相对光强
image(handles.axes1,56 * I * D^2); %开始绘图
axes(handles.axes1);
colormap gray;
axis off;
axis equal;
title(‘杨氏双孔干涉(Young’s double pinhole interference)’,‘FontSize’,12);

% — Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
cla(handles.axes1);
global t flag;
title(‘杨氏双孔干涉(Young’s double pinhole interference)’,‘FontSize’,12);
t = 0;
flag = 0;

% — Executes on button press in pushbutton3.
function pushbutton3_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
global flag t X Y d Lambda;
if flag~=0
flag = 2
end
while flag == 2
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 * 2pi; %计算网格坐标点到两孔的相位差
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

% — Executes on button press in pushbutton4.
function pushbutton4_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
global flag t X Y d Lambda;
if flag~=0
flag = 2
end
while flag == 2
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 * 2pi; %计算网格坐标点到两孔的相位差
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

% — Executes on button press in pushbutton5.
function pushbutton5_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton5 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
global flag;
title(‘杨氏双孔干涉(Young’s double pinhole interference)’,‘FontSize’,12);
flag = 0;
pause(0.3);
flag = 1;

⛄三、运行结果

⛄四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 门云阁.MATLAB物理计算与可视化[M].清华大学出版社，2013.

3 备注
简介此部分摘自互联网，仅供参考，若侵权，联系删除