isvalidsize.m

Go to the documentation of this file.

function isValidVec=isvalidsize(varargin)
sizeCell=cellfun(@size,varargin(1:end-1),'UniformOutput',false);
sizeVec=varargin{end};
nCheckDim=numel(sizeVec);
%
if nCheckDim==0
    isValidVec=max(cellfun(@prod,sizeCell))==0;
else
    if nCheckDim==1
        sizeVec=[sizeVec 1];
        nCheckDim=2;
    end
    %
    nDimVec=cellfun('ndims',varargin(1:end-1));
    maxDim=max([nDimVec nCheckDim]);
    addVec=maxDim-nDimVec;
    isnZero=addVec~=0;
    if any(isnZero)
        addVec(~isnZero)=[];
        addCell=num2cell(addVec);
        sizeCell(isnZero)=cellfun(@(x,y)[x ones(1,y)],...
            sizeCell(isnZero),addCell,...
            'UniformOutput',false);
    end
    isToCheck=~isnan(sizeVec);
    checkSize=sizeVec(isToCheck);
    %
    isValidVec=(cellfun(@(x) isequal(x(isToCheck),checkSize),sizeCell))&...
        (nDimVec<=nCheckDim);
end