mycell2mat.m

Continuous Profile Models (CPM) Matlab Toolbox.

function [m] = mycell2mat(c)
%CELL2MAT Combine a cell array of matrices into one matrix.
%
%	Synopsis
%
%	  m = cell2mat(c)
%
%	Description
%
%	  M = CELL2MAT(C)
%	    C - Cell array of matrices: {M11 M12... ; M21 M22... ; ...}
%	  returns
%	    M - Single matrix: [M11 M12 ...; M21 M22... ; ...]
%
%	Examples
%
%	  c = {[1 2] [3]; [4 5; 6 7] [8; 9]};
%	  m = cell2mat(c)
%
%	See also MAT2CELL

elements = prod(size(c));

if elements == 1
  m = c{1};
  return
end

if elements == 0
  m = [];
  return
end

[rows,cols] = size(c);

if (cols == 1)
  m = cell(1,rows);
  for i=1:rows
    m{i} = [c{i}]';
  end
  m = [m{:}]';
  
else
  m = cell(1,rows);
  for i=1:rows
    m{i} = [c{i,[1:cols]}]';
  end
  m = [m{1,[1:rows]}]';
end


%% reshape now further...
[d1 d2] = size(c{1});
d3 = length(c);
m = reshape(m,[d1 d2 d3]);

%% permute out the singleton dimensions (instead of squeeze)
dims = size(m);
if any(dims==1)
    singleDims = (find(dims==1));
    nonSingle = setdiff(1:length(dims),singleDims);
    m = permute(m,[nonSingle singleDims]);
end