view +blockmatrix/toMatrix.m @ 1124:c2d281633e14 feature/poroelastic

Divergence and Gradient do not work for multi-block. Not sure how to fix, left error message for now.
author Martin Almquist <malmquist@stanford.edu>
date Sat, 11 May 2019 17:52:08 -0700
parents 2501067f2fc7
children
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);

    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