view general/numerical/array/packvec.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.
author samer
date Sun, 11 Oct 2015 10:20:42 +0100
parents db7f4afd27c5
children
line wrap: on
line source
function X=packvec(varargin)
% packvec - Pack coordinate values in separate arrays into one big array
%
% packvec :: {[K]->[[E]]} -> [[K,E]].
%
% There is also a variable argument list form:
%
% packvec :: [[E]], [[E]] -> [[2,E]].
% packvec :: [[E]], [[E]], [[E]] -> [[3,E]].
% etc..


if nargin==1 && iscell(varargin{1})
	Y=varargin{1};
else
	Y=varargin;
end
[Y{:}]=promote(Y{:});
Y=cellmap(@(y)reshape(y,[1 size(y)]),Y);
X=cat(1,Y{:});