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

    function obj=cset_pb(varargin)
% CSET_PB  Plackett-Burman design generator object
%
%  OBJ=CSET_PB
%  OBJ=CSET_PB(CS)
%  OBJ=CSET_PB(STRUCT)
%  OBJ=CSET_PB(OPTS)
%  OBJ=CSET_PB(CS,OPTS)
%
%   Where OPTS={{LIMITS}, N_RUNS};

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


if nargin==2
    cs= varargin{1};
    lims= cat(1,varargin{2}{1}{:});
    cs= limits(cs,lims);
    obj.Nr= varargin{2}{2};
elseif nargin==1
    if isa(varargin{1},'candidateset')
        cs= varargin{1};
        Nrvect=pr_getrunopts(nfactors(cs));
        obj.Nr=max(Nrvect(1),8);
    elseif isa(varargin{1},'struct')
        cs= varargin{1}.candidateset;
        cs= rmfield(cs,'candidateset');
    else
        lims= cat(1,varargin{1}{1}{:});
        cs=candidateset(lims);
        obj.Nr= varargin{1}{2};
    end
else
    % No inputs - use defaults
    cs= candidateset(repmat([-1 1],4,1));
    obj.Nr= 8;
end

obj.version= 1;
obj= class(obj,'cset_pb',cs);
return