Mercurial > repos > public > sbplib
view findFieldWidth.m @ 958:72cd29107a9a feature/poroelastic
Temporary changes in multiblock.DiffOp. Change traction operators in Elastic2dvariable to be true boundary operators. But adjoint FD conv test fails for dirichlet BC so need to debug!
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Wed, 05 Dec 2018 18:58:10 -0800 |
parents | 30ae48efc7ae |
children |
line wrap: on
line source
% Calculates the maximum field width needed width fprintf for a given format fmt for the values in A % A = [1.13232 10.233 1.1]; % width = findFieldWidth('%.2f',A); % Gives wdith = 5 function width = findFieldWidth(fmt, A) width = 0; for i = 1:numel(A) elem = A(i); if iscell(elem) elem = elem{1}; end str = sprintf(fmt,elem); width = max(width,length(str)); end end