www.gusucode.com > mbcdesign 工具箱 matlab 源码程序 > mbcdesign/@designdev/info.m

    function info(obj)
%INFO

%  Copyright 2000-2011 The MathWorks, Inc. and Ford Global Technologies, Inc.



level = count(obj);
d = obj.design;

% Format channel names nicely
[names, units] = channelNames(obj, level);
leadSpaces = '  Channel names : ';
if length(names)>1
    leadSpaces = char(leadSpaces, repmat(' ',length(names)-1,1));
end
spaces = repmat(' (', length(names), 1);
endBracket = repmat(')', length(names), 1);
names = char(names);

% Format model information
modelChar = char(model(obj.design));
modelLeadSpaces = repmat('        ', size(modelChar, 1), 1);

disp(' ')
disp(['Level ' num2str(level) ' of DesignDev object :'])
disp(' ')
disp(['  Design with ' num2str(nfactors(d)) ' factors and ' num2str(npoints(d)) ' points']);
disp([ leadSpaces names spaces endBracket]);
disp(['  ' num2str(length(obj.constraints)) ' valid constraints']);
disp( '  Modeled on :')
disp([ modelLeadSpaces modelChar]);
disp(['  getConstraints function : ' i_callback2str(obj.getConstraints)]);
disp(['  modifyDesign function   : ' i_callback2str(obj.modifyDesign)]);
disp(['  setDesignPoint function : ' i_callback2str(obj.setDesignPoint)]);
disp(['  runExperiment function  : ' i_callback2str(obj.runExperiment)]);
disp( '  Data :');
disp(obj.data);

info(obj.next);


function str = i_callback2str(callback)

switch class(callback{1})
case 'char'
	str = callback{1};
case 'function_handle'
	str = func2str(callback{1});
end

for i = 2:length(callback)
	switch class(callback{i})
	case 'char'
		str = [str ' {' callback{i} '}'];
	case 'function_handle'
		str = [str ' {' func2str(callback{i}) '}'];
	end
end