vb_cell_merge

 merge cell array into vector
  [xarray , Ndata] = vb_cell_merge(xcell)
 --- Input
 xcell : cell array
 ---Output
 xarray : concatenated data vector
 Ndata(n) : number of data in xcell{n}

 M. Sato 2006-7-21

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function    [xarray , Ndata] = vb_cell_merge(xcell)
0002 % merge cell array into vector
0003 %  [xarray , Ndata] = vb_cell_merge(xcell)
0004 % --- Input
0005 % xcell : cell array
0006 % ---Output
0007 % xarray : concatenated data vector
0008 % Ndata(n) : number of data in xcell{n}
0009 %
0010 % M. Sato 2006-7-21
0011 %
0012 % Copyright (C) 2011, ATR All Rights Reserved.
0013 % License : New BSD License(see VBMEG_LICENSE.txt)
0014 
0015 N = length(xcell);
0016 
0017 Ndata = zeros(N,1);
0018 
0019 for n=1:N
0020     Ndata(n) = length(xcell{n});
0021 end
0022 
0023 xarray = zeros(sum(Ndata),1);
0024 
0025 next = 0;
0026 
0027 for n=1:N
0028     xdata = xcell{n};
0029     n1 = next + 1;
0030     n2 = next + Ndata(n);
0031     xarray(n1:n2) = xdata(:);
0032     next = n2;
0033 end