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

    function p = designproperties(c,p,m)
%DESIGNPROPERTIES properties for command-line
%
% p = designproperties(c,p)

%  Copyright 2007 The MathWorks, Inc.

p = addprop(p,'NumberOfPoints',...
    @iGetNumberOfPoints,...
    '',...
    'int',[0 Inf],...
    'Number of points');

p = addprop(p,'Limits',...
    @iGetRange,@iSetRange,...
    'matrix',[nfactors(c),2],...
    'Design limits');


function v = iGetRange(c,m)

v = limits(c);
v = invcode(m,v')';

function c = iSetRange(c,v,m)

if ~isequal(size(v),size(c.lims))
   error(message('mbc:doe:InvalidSizes', size( c.lims, 1 )))
end
if any(v(:,1)>=v(:,2))
   error(message('mbc:doe:InvalidRange'))
end
v = code(m,v')';
c = limits(c,v);

function v = iGetNumberOfPoints(c,m)

v = size(fullset(c),1);