size.m

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

function sz = size(A,N)
% transio::size  - overloaded method

% Version:  v0.7b
% Build:    7082923
% Date:     Aug-29 2007, 11:25 PM CEST
% Author:   Jochen Weber, Brain Innovation, B.V., Maastricht, NL
% URL/Info: http://wiki.brainvoyager.com/BVQXtools

% get size
sA = struct(A);
csz = sA.DataDims;
csl = length(csz);

% without dim
if nargin < 2
    sz = csz;
elseif ~isa(N, 'double') || ...
    numel(N) ~= 1 || ...
    isinf(N) || ...
    isnan(N) || ...
    N < 1 || ...
    N > 63
    error( ...
        'transio:BadArgument', ...
        'Invalid call to size.' ...
    );
else
    N = fix(N);
    if N > csl
        sz = 1;
    else
        sz = csz(N);
    end
end