ismemberbyfunc.m

Go to the documentation of this file.

function [isThereVec,indThereVec]=ismemberbyfunc(leftVec,rightVec,fCompare)
import mxberry.core.throwerror;
if nargin<3
    fCompare=@isequaln;
end
%%
if isempty(rightVec)
    isThereVec=false(size(leftVec));
    indThereVec=zeros(size(leftVec));
else
    if ~isvector(leftVec)
        throwerror('wrongInput','leftVec is expected to be a vector');
    end
    if ~isvector(rightVec)
        throwerror('wrongInput','rightVec is expected to be a vector');
    end
    isCell=iscell(leftVec);
    if iscell(rightVec)~=isCell
        throwerror('wrongInput',...
            ['leftVec and rightVec must be either cells or non cells ',...
            'simultaneosly']);
    end
    %
    if iscolumn(leftVec)
        isLeftCol=true;
        leftVec=leftVec.';
    else
        isLeftCol=false;
    end
    %
    if isrow(rightVec)
        rightVec=rightVec.';
    end
    %
    leftVecMat=repmat(leftVec,length(rightVec),1);
    rightVecMat=repmat(rightVec,1,length(leftVec));
    if isCell
        isEqualMat=cellfun(fCompare,leftVecMat,rightVecMat);
    else
        isEqualMat=arrayfun(fCompare,leftVecMat,rightVecMat);
    end
    %
    isThereVec=any(isEqualMat,1);
    if nargout>1
        [indBMat,indAMat]=find(isEqualMat);
        indAVec=indAMat(:);
        indBVec=indBMat(:);
        indThereVec=accumarray(indAVec,indBVec,[numel(leftVec) 1],@min,0);
    end
    if isLeftCol
        isThereVec=isThereVec.';
    else
        indThereVec=indThereVec.';
    end
end