Mercurial > repos > public > sbplib
view +blockmatrix/toMatrix.m @ 347:85c2fe06d551 feature/beams
Implemented characteristic form BC in Wave2dCurve.
author | Jonatan Werpers <jonatan@werpers.com> |
---|---|
date | Wed, 16 Nov 2016 16:16:44 -0800 |
parents | 46aa0b6a10cd |
children | c14875cf7ae6 |
line wrap: on
line source
function A = toMatrix(bm) if ~blockmatrix.isBlockmatrix(bm) error('blockmatrix:toMatrix:NotABlockmatrix', 'Input is not a blockmatrix'); end div = blockmatrix.getDivision(bm); n = div{1}; m = div{2}; N = sum(n); M = sum(m); A = sparse(N,M); n_ind = [0 cumsum(n)]; m_ind = [0 cumsum(m)]; for i = 1:size(bm,1) for j = 1:size(bm,2) if isempty(bm{i,j}) continue end % TODO: If this ever fails for large matrices. Try cell2mat instead. A(n_ind(i)+1:n_ind(i+1),m_ind(j)+1:m_ind(j+1)) = bm{i,j}; end end end