Mercurial > repos > public > sbplib
view +blockmatrix/getDivision.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 | f0ef314e2070 |
children | a5f1b0267dba |
line wrap: on
line source
function div = getDivision(bm) if ~blockmatrix.isBlockmatrix(bm) error('blockmatrix:getDivision:NotABlockmatrix', 'Input is not a blockmatrix'); end if isempty(bm) div = {[],[]}; return end div = {row_height(bm),col_width(bm)}; end function m = col_width(C) m = zeros(1,size(C,2)); for j = 1:size(C,2) for i = 1:size(C,1) if isempty(C{i,j}) continue end m(j) = size(C{i,j},2); end end end function n = row_height(C) n = zeros(1,size(C,1)); for i = 1:size(C,1) for j = 1:size(C,2) if isempty(C{i,j}) continue end n(i) = size(C{i,j},1); end end end