isbvqxfigure.m

来自「toolbox of BVQX, This is the access betw」· M 代码 · 共 43 行

function isf = isBVQXfigure(tobj, isvalid)
% isBVQXfigure  - perform validity check on input
%
% FORMAT:       isfigure = isBVQXfigure(test [, isvalid])
%
% Input fields:
%
%       test        variable to test
%
% Output fields:
%
%       isfigure    1x1 false for non-matching classes or 1xN logical,
%                   true if OK, false if no longer in memory (if isvalid)

% Version:      v0.7b
% Build:        7090409
% Date:         Sep-04 2007, 9:40 AM CEST
% Author:       Jochen Weber, Brain Innovation, B.V., Maastricht, NL
% URL / Info:   http://wiki.brainvoyager.com/BVQXtools

% basic argument check
if nargin < 1
    error( ...
        'BVQXtools:BadArgument', ...
        'Call requires at least one input argument.' ...
    );
end

% initialise output
isf = isa(tobj, 'BVQXfigure');
if ~isf || ...
    nargin < 2 || ...
   ~islogical(isvalid) || ...
    isempty(isvalid)
    return;
end
isf = false(size(tobj));

% iterate over objects
for hc = 1:numel(tobj)
    isf(hc) = BVQXfigure(tobj(hc), 'isvalid');
end