Line | |
---|
1 | function x = horzcat(varargin) |
---|
2 | % horzcat (overloaded) |
---|
3 | |
---|
4 | % Author Johan Löfberg |
---|
5 | % $Id: vertcat.m,v 1.3 2006/07/28 06:27:01 joloef Exp $ |
---|
6 | |
---|
7 | x = varargin{1}; |
---|
8 | |
---|
9 | for i = 2:nargin |
---|
10 | y = varargin{i}; |
---|
11 | |
---|
12 | dim1 = size(x); |
---|
13 | dim2 = size(y); |
---|
14 | m1 = size(x,2); |
---|
15 | m2 = size(y,2); |
---|
16 | if m1 == m2 |
---|
17 | z1 = reshape(x(:),dim1(1),[]); |
---|
18 | z2 = reshape(y(:),dim2(1),[]); |
---|
19 | dim = dim1; |
---|
20 | dim(1) = dim1(1) + dim2(1); |
---|
21 | x = reshape([z1;z2],dim); |
---|
22 | else |
---|
23 | error('Dimension mismatch'); |
---|
24 | end |
---|
25 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.