独立设计牛顿环实验的MATLAB 仿真GUI界面 要求如下：① 界面输入牛顿环半径和波长参数其中波长通过滑标输入并且要将滑 标的值显示出来可参考例1。② 能提供3 个选项：空气薄膜厚度固定、连续增加薄膜 厚度、连续减小薄膜厚度；其中前一种用于实现静态仿真后两种实现动态仿真。③ 静态 仿真和动态仿真可选。④ 界面整洁美观富有个性。请将代码打出

MATLAB 仿真GUI界面的代码：

% 设计牛顿环实验的MATLAB 仿真GUI界面

function varargout = NewtonRings_GUI(varargin)

% NEWTONRINGS_GUI MATLAB code for NewtonRings_GUI.fig % NEWTONRINGS_GUI, by itself, creates a new NEWTONRINGS_GUI or raises the existing % singleton*. % % H = NEWTONRINGS_GUI returns the handle to a new NEWTONRINGS_GUI or the handle to % the existing singleton*. % % NEWTONRINGS_GUI('CALLBACK',hObject,eventData,handles,...) calls the local % function named CALLBACK in NEWTONRINGS_GUI.M with the given input arguments. % % NEWTONRINGS_GUI('Property','Value',...) creates a new NEWTONRINGS_GUI or raises the % existing singleton*. Starting from the left, property value pairs are % applied to the GUI before NewtonRings_GUI_OpeningFcn gets called. An % unrecognized property name or invalid value makes property application % stop. All inputs are passed to NewtonRings_GUI_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 NewtonRings_GUI

% Last Modified by GUIDE v2.5 20-Aug-2021 15:13:56

% Begin initialization code - DO NOT EDIT gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @NewtonRings_GUI_OpeningFcn, ... 'gui_OutputFcn', @NewtonRings_GUI_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 NewtonRings_GUI is made visible. function NewtonRings_GUI_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 NewtonRings_GUI (see VARARGIN)

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

% Update handles structure guidata(hObject, handles);

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

% 设置图标 icon = imread('newton_rings.png'); set(handles.axes1, 'Visible', 'off'); imshow(icon, 'Parent', handles.axes1);

% --- Outputs from this function are returned to the command line. function varargout = NewtonRings_GUI_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 slider movement. function slider1_Callback(hObject, eventdata, handles) % hObject handle to slider1 (see GCBO) % eventdata reserved - to be defined in a future version of MATLAB % handles structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'Value') returns position of slider % get(hObject,'Min') and get(hObject,'Max') to determine range of slider

% 获取滑动条的值 wavelength = get(hObject, 'Value');

% 显示滑动条的值 set(handles.text_wavelength, 'String', sprintf('%0.1f', wavelength));

% --- Executes during object creation, after setting all properties. function slider1_CreateFcn(hObject, eventdata, handles) % hObject handle to slider1 (see GCBO) % eventdata reserved - to be defined in a future version of MATLAB % handles empty - handles not created until after all CreateFcns called

% Hint: slider controls usually have a light gray background. if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor',[.9 .9 .9]); end

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

% 获取输入参数 R = str2double(get(handles.edit_R, 'String')); wavelength = get(handles.slider1, 'Value');

% 计算牛顿环图像 [x, y, img] = cal_newton_rings(R, wavelength, 0);

% 显示牛顿环图像 imshow(img, 'Parent', handles.axes2); title(handles.axes2, 'Newton Rings (Static)');

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

% 获取输入参数 R = str2double(get(handles.edit_R, 'String')); wavelength = get(handles.slider1, 'Value');

% 循环计算牛顿环图像 for d = 0:0.1:1

% 计算牛顿环图像
[x, y, img] = cal_newton_rings(R, wavelength, d);

% 显示牛顿环图像
imshow(img, 'Parent', handles.axes2);
title(handles.axes2, 'Newton Rings (Dynamic)');

% 等待一段时间
pause(0.1);

end

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

% 获取输入参数 R = str2double(get(handles.edit_R, 'String')); wavelength = get(handles.slider1, 'Value');

% 循环计算牛顿环图像 for d = 1:-0.1:0

% 计算牛顿环图像
[x, y, img] = cal_newton_rings(R, wavelength, d);

% 显示牛顿环图像
imshow(img, 'Parent', handles.axes2);
title(handles.axes2, 'Newton Rings (Dynamic)');

% 等待一段时间
pause(0.1);

end

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

% 清空图像 cla(handles.axes2);

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

% 关闭窗口 close(handles.figure1);

% --- Calculate Newton Rings Image function [x, y, img] = cal_newton_rings(R, wavelength, d)

% 牛顿环中心的坐标 x0 = 0; y0 = 0;

% 生成网格点 [x, y] = meshgrid(-R:R, -R:R);

% 计算距离 r = sqrt((x-x0).^2 + (y-y0).^2);

% 计算相位差 phase = 2pir/wavelength + d;

% 计算光程差 path_diff = phasewavelength/(2pi);

% 计算光强 I = 1 - mod(path_diff, 1);

% 生成彩色图像 img = zeros(size(I,1), size(I,2), 3); img(:,:,1) = I; img(:,:,2) = I; img(:,:,3) = I;

% 将图像转换为灰度图像 img = rgb2gray(img);

% 将图像中心移动到原点 x = x - x0; y = y - y0; img = img(R+1:end-R, R+1:end-R);

% 去除边缘的畸变 img = img(2:end-1, 2:end-1); x = x(2:end-1, 2:end-1); y = y(2:end-1, 2:end-1);