引言

MATLAB是科学工程计算分析的重要编程环境，除了数值计算代码的编写，我们往往修改输入参数，作为研究变量。如果直接在代码脚本中修改有两个问题：

修改不便，必须进入代码内部，找出相关变量；

不熟悉程序的人有可能将程序修改错误，得到错误的结果。

解决这一问题的一种方案是：采用参数对话框输入。但是，MATLAB自带的inputdlg函数功能有限，调用较为麻烦，因此在此基础上订制开发了paradlg。

问题描述

某MATLAB程序，需要输入以下参数：

f_center = 100

filename = 'B1_C1_F'

dt = 16

f_range = [0 20]

预期以下图的对话框输入：

paradlg.jpg-27.3kB

应用示例

基本调用

使用方法：

构造prompt0数据，第一列为输入提示，第二列为默认参数；

支持三类数据输入，标量、向量、字符串；

调用paradlg函数，返回输入的数据集para；

将para中的元素依次赋值给目标的变量f_center，filename_pub，dt，f_range；

prompt0 = { % 对话框参数

'发射信号中心频率(kHz)', 100

'发射信号中心频率(kHz)','B1_C1_F'

'采样周期dt (e-9 s)',16

'绘图频谱范围(kHz)',[0 20]

};

para = paradlg(prompt0);

f_center = para{1}; % 发射信号中心频率(kHz)

filename_pub = para{2}; % 输出报告文件名

dt = para{3}; % 采样周期

f_range =para{4};

结果如图：

paradlg.jpg-25.5kB

高级调用

如需控制对话框的宽度、标题，则在函数paradlg中输入第二个变量dlg0。

% dlg0.width -- 对话框宽度

% dlg0.title -- 对话框标题

操作示例：

prompt0 = { % 对话框参数

'发射信号中心频率(kHz)', []

'发射信号中心频率(kHz)','B1_C1_F'

'采样周期dt (e-9 s)',16

'绘图频谱范围(kHz)',[0 20]

};

dlg0.width = 100;

dlg0.title = '信号谱分析参数输入';

para = paradlg(prompt0,dlg0);

f_center = para{1}; % 发射信号中心频率(kHz)

filename_pub = para{2}; % 输出报告文件名

dt = para{3}; % 采样周期

f_range =para{4};

paradlg-pro.jpg-33.6kB

主程序代码

function para = paradlg(prompt0,dlg0 )

% 题目:标准化对话框创建程序

% 参数:

% prompt0 -- 必要参数，提示语以及默认参数，n*2

% dlg0 -- 可选参数对话框宽度，标题信息

% dlg0.width -- 对话框宽度

% dlg0.title -- 对话框标题

% dlg0.auto -- 是否自动保存上次数据，dlg0.auto=1或dlg0.auto=0

% 功能：

% 创建标准化参数输入对话框

% 支持 标量、向量、字符串

% 导出输入参数

% 记忆上次输入

% 作者: 马骋

% 参考：无，使用示例见附录

% 2016.03.30 @HIT

%% prompt参数

n = size(prompt0,1);

prompt = cell(n,1); % 提示语

def0 = cell(n,1); % 默认参数

for iloop = 1:n

prompt{iloop} = prompt0{iloop,1}; % 参数分离

def0{iloop} = num2str(prompt0{iloop,2}); % 默认参数必须为字符串格式

end

try

load data_dlg % 导入上次运行数据def

catch

def =def0;

end

%% dlg参数

try % 宽度设置

dlg.width = dlg0.width;

catch

dlg.width = 60;

end

try % 标题设置

dlg.title = dlg0.title;

catch

dlg.title = '参数输入';

end

%% 对话框

linewidth = ones(n,2); % 宽度设置

linewidth(:,2) = linewidth(:,2)*dlg.width; % 可以输入控制

options.Interpreter='tex';

para_dlg = inputdlg(prompt,dlg.title,linewidth,def,options); % 打开对话框，获取参数字符串

%% 参数转换

% 向量转换，字符串转换

para = cell(n,1); % 输出参数

for iloop = 1:n

temp = ['[',para_dlg{iloop},']']; % 默认按向量转换

para{iloop} = str2num(temp);

if isempty(para{iloop}) % 如果转换后为空，则为字符串

para{iloop} = para_dlg{iloop};

end

end

%% 参数保存

def = para_dlg; % 本次输入赋值给def

save('data_dlg','def'); % 保存对话框数据，用于下次导入

try

if ~dlg0.auto

delete data_dlg.mat

end

catch

end

end