Mercurial > repos > public > sbplib
view semiDefIneq.m @ 1317:34997aced843 feature/poroelastic
Add some interface forcing penalties in ElasticCurvilinearAnisotropic
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Sun, 26 Jul 2020 20:06:06 -0700 |
parents | eaf557023fbe |
children |
line wrap: on
line source
function ineq = semiDefIneq(A, verbose) default_arg('verbose', true); [m, sub] = minors(A, verbose); ineqsys = true; for i = 1:length(m) ineqsys = ineqsys & m(i) >= 0; end ineq = simplify(ineqsys); str = toString(ineq); fprintf('%s\n',strjoin(strsplit(str,' & '), '\n')); end