changelog shortlog tags changeset files revisions annotate raw

scripts/general/cell2mat.m

changeset 9846: 1d90fc211872
parent:8655dc0906e6
author: John W. Eaton <jwe@octave.org>
date: Sat Nov 21 21:44:51 2009 -0500 (33 hours ago)
permissions: -rw-r--r--
description: configure.ac: report freetype, fontconfig, and fltk cflags and libs info 
     1## Copyright (C) 2005, 2006, 2007, 2008 Laurent Mazet

     2##

     3## This file is part of Octave.

     4##

     5## Octave is free software; you can redistribute it and/or modify it

     6## under the terms of the GNU General Public License as published by

     7## the Free Software Foundation; either version 3 of the License, or (at

     8## your option) any later version.

     9##

    10## Octave is distributed in the hope that it will be useful, but

    11## WITHOUT ANY WARRANTY; without even the implied warranty of

    12## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    13## General Public License for more details.

    14##

    15## You should have received a copy of the GNU General Public License

    16## along with Octave; see the file COPYING.  If not, see

    17## <http://www.gnu.org/licenses/>.

    18

    19## -*- texinfo -*-

    20## @deftypefn {Function File} {@var{m} =} cell2mat (@var{c})

    21## Convert the cell array @var{c} into a matrix by concatenating all

    22## elements of @var{c} into a hyperrectangle.  Elements of @var{c} must

    23## be numeric, logical or char, and @code{cat} must be able to

    24## concatenate them together.

    25## @seealso{mat2cell, num2cell}

    26## @end deftypefn

    27

    28function m = cell2mat (c)

    29

    30  if (nargin != 1)

    31    print_usage ();

    32  endif

    33

    34  if (! iscell (c))

    35    error ("cell2mat: c is not a cell array");

    36  endif

    37  

    38  nb = numel (c);

    39

    40  if (nb == 0)

    41    m = [];

    42  elseif (nb == 1)

    43    elt = c{1};

    44    if (isnumeric (elt) || ischar (elt) || islogical (elt))

    45      m = elt;

    46    elseif (iscell (elt))

    47      m = cell2mat (elt);

    48    else

    49      error ("cell2mat: all elements of cell array must be numeric, logical or char");

    50    endif

    51  elseif (ndims (c) == 2)

    52    nr = rows (c);

    53    nc = columns (c);

    54    if (nc > nr)

    55      c1 = cell (nr, 1);

    56      for i = 1 : nr

    57	c1{i} = [c{i : nr : end}];

    58      endfor

    59      m = cat (1, c1 {:});

    60    else

    61      c1 = cell (nc, 1);

    62      for i = 1 : nc

    63	c1{i} = cat (1, c{(i - 1) * nr  + [1 : nr]});

    64      endfor

    65      m = [c1{:}];

    66    endif

    67  else

    68    ## n dimensions case

    69    for k = ndims (c):-1:2,

    70      sz = size (c);

    71      sz(end) = 1;

    72      c1 = cell (sz);

    73      for i = 1:(prod (sz))

    74        c1{i} = cat (k, c{i:(prod (sz)):end});

    75      endfor

    76      c = c1;

    77    endfor

    78    m = cat (1, c1{:});

    79  endif

    80

    81endfunction

    82

    83## Tests

    84%!shared C, D, E, F

    85%! C = {[1], [2 3 4]; [5; 9], [6 7 8; 10 11 12]};

    86%! D = C; D(:,:,2) = C;

    87%! E = [1 2 3 4; 5 6 7 8; 9 10 11 12];

    88%! F = E; F(:,:,2) = E;

    89%!assert (cell2mat (C), E);

    90%!assert (cell2mat (D), F);

    91## Demos

    92%!demo

    93%! C = {[1], [2 3 4]; [5; 9], [6 7 8; 10 11 12]};

    94%! cell2mat (C)