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