www.gusucode.com > mbctools 工具箱 matlab 源码程序 > mbctools/@mdevtestplan/CheckDesign.m

    function OK=CheckDesign(T,X,m);
%CHECKDESIGN

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



nf= length(T.Factors);
if nargin>2
   nfin=length(get(m,'order'));
else
   nfin=size(X,2);
end

if nfin~=nf
   OK= 0;
else
   OK=1;
   T.Design.info= T.Design.factorsettings(X);
   if nargin>2
      T.Design.info= T.Design.model(m);
      T=model(T,m);
   end
   p= pointer(T);
end