www.gusucode.com > mbcdata 工具箱 matlab 源码程序 > mbcdata/@cgoppoint/isfactor.m
function out = isfactor(p,factor) % isfactor(p,ptrlist) returns 1 where ptr on ptrlist is a factor of p % isfactor(p,names) returns 1 where names matches factor name % Copyright 2000-2011 The MathWorks, Inc. and Ford Global Technologies, Inc. out = zeros(1,length(factor)); if ~isempty(p.ptrlist) if isa(factor,'xregpointer') ptrlist = get(p,'ptrlist'); out = []; for i = 1:length(factor) out = [out any(double(ptrlist)==double(factor(i)))]; end elseif ischar(factor) || iscell(factor) if ischar(factor) factor = {factor}; end AllFactors = get(p,'factors'); out = []; for i = 1:length(factor) if ischar(factor{i}) out = [out any( strcmp( factor{ i },AllFactors ) )]; else error(message('mbc:cgoppoint:InvalidArgument32')); end end else error(message('mbc:cgoppoint:InvalidArgument33')); end end