matlab gui 单缝衍射程序

以下是一个简单的 MATLAB GUI 单缝衍射程序的示例：

% 创建 GUI 窗口
fig = figure('Name', '单缝衍射', 'NumberTitle', 'off', 'Position', [400 300 400 300]);

% 创建输入控件
uicontrol('Style', 'text', 'String', '波长 (nm)', 'Position', [20 250 100 20]);
wavelength_edit = uicontrol('Style', 'edit', 'Position', [120 250 100 20]);

uicontrol('Style', 'text', 'String', '缝宽 (μm)', 'Position', [20 200 100 20]);
slit_width_edit = uicontrol('Style', 'edit', 'Position', [120 200 100 20]);

uicontrol('Style', 'text', 'String', '距离 (m)', 'Position', [20 150 100 20]);
distance_edit = uicontrol('Style', 'edit', 'Position', [120 150 100 20]);

% 创建绘图区域
axes_handle = axes('Units', 'pixels', 'Position', [50 50 300 100]);

% 创建计算按钮
uicontrol('Style', 'pushbutton', 'String', '计算', 'Position', [250 250 100 20], ...
          'Callback', @calculation_callback);

% 计算函数
function calculation_callback(~, ~)
    % 获取输入参数
    wavelength = str2double(get(wavelength_edit, 'String')) * 1e-9;
    slit_width = str2double(get(slit_width_edit, 'String')) * 1e-6;
    distance = str2double(get(distance_edit, 'String'));

    % 计算衍射图案
    x = linspace(-slit_width/2, slit_width/2, 1000);
    y = sinc((x * pi) / slit_width) .^ 2;
    y = y .* (sin((pi * x) / wavelength * distance) ./ ((pi * x) / wavelength * distance)) .^ 2;

    % 绘制图像
    plot(axes_handle, x*1e6, y);
    xlabel('距离 (μm)');
    ylabel('强度');
end

运行上述代码，将会创建一个简单的 MATLAB GUI 窗口，用户可以输入波长、缝宽和距离等参数，点击“计算”按钮后，程序将会计算并绘制出单缝衍射的图案。