Mercurial > octave-nkf

comparison scripts/general/cell2mat.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 4975d63bb2df
children ca2df6737d6b
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
53 ## 2d case optimized 53 ## 2d case optimized
54 [nr, nc] = size (c); 54 [nr, nc] = size (c);
55 if (nc > nr) 55 if (nc > nr)
56 c1 = cell (nr, 1); 56 c1 = cell (nr, 1);
57 for i = 1 : nr 57 for i = 1 : nr
58 c1{i} = [c{i,:}]; 58 c1{i} = [c{i,:}];
59 endfor 59 endfor
60 m = vertcat (c1 {:}); 60 m = vertcat (c1 {:});
61 else 61 else
62 c1 = cell (nc, 1); 62 c1 = cell (nc, 1);
63 for i = 1 : nc 63 for i = 1 : nc
64 c1{i} = vertcat (c{:,i}); 64 c1{i} = vertcat (c{:,i});
65 endfor 65 endfor
66 m = [c1{:}]; 66 m = [c1{:}];
67 endif 67 endif
68 else 68 else
69 ## n dimensions case 69 ## n dimensions case