slifrm.m

来自「收集的GA的一些源程序」· M 代码 · 共 30 行

%
% Simple routine to set the frame around the sliders
% and give each slider a name

	gainframe1 = uicontrol(main,'Style','frame',...
		'BackgroundColor',[0.75 0.75 0.75],...
		'Pos',[15 13 170 132]);

	gainframe2 = uicontrol(main,'Style','frame',...
		'BackgroundColor',[1 1 1],...
		'Pos',[18 16 164 40]);

	gainframe3 = uicontrol(main,'Style','frame',...
		'BackgroundColor',[1 1 1],...
		'Pos',[18 59 164 40]);

	gainframe4 = uicontrol(main,'Style','frame',...
		'BackgroundColor',[1 1 1],...
		'Pos',[18 102 164 40]);

%
% Put a title above the sliders so user knows what they are for
%
	params_box=uicontrol(main,...
		'Style','Push',...
		'Units','Pixels',...
		'Position',[15 150 170 25],...
		'String','Model Parameters');