cell2padmat.m

来自「物流分析工具包。Facility location: Continuous mi」· M 代码 · 共 32 行

function M = cell2padmat(C,align)
%CELL2PADMAT Convert cell array of vectors to NaN-padded matrix.
%     M = cell2padmat(C,align)
% align = 1, left alignment (default)
%       = 2, right alignment

% Copyright (c) 1994-2006 by Michael G. Kay
% Matlog Version 9 13-Jan-2006 (http://www.ie.ncsu.edu/kay/matlog)

% Input Error Checking ****************************************************
error(nargchk(1,2,nargin))

if nargin < 2, align = 1; end

if ~iscell(C)
   error('C must be a cell array.')
elseif all(align ~= [1 2])
   error('Invalid "align" specified.')
end
% End (Input Error Checking) **********************************************

n = cellfun('size',C,2);
M = NaN * ones(length(C),max(n));

for i = 1:length(C)
   if align == 1
      M(i,1:n(i)) = C{i};
   else
      M(i,end-n(i)+1:end) = C{i};
   end
end