Mercurial > repos > public > sbplib
diff +blockmatrix/toMatrix.m @ 886:8894e9c49e40 feature/timesteppers
Merge with default for latest changes
author | Vidar Stiernström <vidar.stiernstrom@it.uu.se> |
---|---|
date | Thu, 15 Nov 2018 16:36:21 -0800 |
parents | 2501067f2fc7 |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/+blockmatrix/toMatrix.m Thu Nov 15 16:36:21 2018 -0800 @@ -0,0 +1,23 @@ +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); + + for i = 1:size(bm,1) + for j = 1:size(bm,2) + if isempty(bm{i,j}) + bm{i,j} = sparse(n(i),m(j)); + end + end + end + A = cell2mat(bm); +end