1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
function varargout = AltSize(in,arg)
% varargout = AltSize(in,arg)
%
% extends size()'s functionality to support querying the size of multiple
% dimensions of a variable in one call.
% requested dimensions can be repeated and may (of course) be singleton
% number of output arguments must match number of requested dimension sizes
% or be one, in which case a vector is returned
%
% example:
% in = ones(1,2,3,4,5);
% [d e f g h i] = AltSize(in,[1 3 2 8 4 2])
% d =
% 1
% e =
% 3
% f =
% 2
% g =
% 1
% h =
% 4
% i =
% 2
% DN 2008
if nargin==1
% standaard size case, dispatch to build-in size
if nargout==0||nargout==1
varargout = {size(in)};
else
[varargout{1:nargout}] = size(in);
end
elseif nargin==2 && isscalar(arg)
% ook standaard size geval
psychassert(nargout==0||nargout==1,'Unknown command option.')
varargout = {size(in,arg)};
else
psychassert(nargin==2,'two input arguments must be specified');
psychassert(nargout==0||nargout==1||nargout==length(arg),'number of output variables must be 1 or match the number of requested dimensions');
out = zeros(1,length(arg));
sizes = size(in);
qone = arg>ndims(in);
out(qone) = 1;
out(~qone) = sizes(arg(~qone));
if nargout==0||nargout==1
varargout = {out};
else
varargout = num2cell(out);
end
end
|
