--- a +++ b/inst/@CatBlockMat/append.m @@ -0,0 +1,35 @@ +% Append a matrix to a CatBlockMat matrix. +% +% A = append(B,M) +% +% Append the matrix M to a CatBlockMat matrix B. + + +function self = append(self,M) + +sz = size(M); + +if any(self.sz(self.d ~= self.dim) ~= sz(self.d ~= self.dim)) + error('arguments dimensions are not consistent.'); +end + +self.B{end+1} = M; +self.N = self.N+1; + + +self.i(end+1) = self.i(end) + sz(self.dim); +self.sz(self.dim) = self.i(end); +% Copyright (C) 2014 Alexander Barth <a.barth@ulg.ac.be> +% +% This program is free software; you can redistribute it and/or modify it under +% the terms of the GNU General Public License as published by the Free Software +% Foundation; either version 2 of the License, or (at your option) any later +% version. +% +% This program is distributed in the hope that it will be useful, but WITHOUT +% ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +% FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +% details. +% +% You should have received a copy of the GNU General Public License along with +% this program; if not, see <http://www.gnu.org/licenses/>.