Mercurial > repos > public > sbplib

view +util/matrixborrow.m @ 836:049e4c6fa630 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add dirac delta function, with corresponding test. Commented out tests for staggered grid because they do not yet exist on this branch.
author Martin Almquist <malmquist@stanford.edu>
date Wed, 05 Sep 2018 14:46:39 -0700
parents 48b6fb693025
children
line wrap: on
line source

function alpha = matrixborrow(A,B)

    function y = neg(x)
        y = min(eig(A-x*B));
    end


    x0 = 1;
    while neg(x0) > -1
        x0 = 2*x0;
    end

    opt = optimset('Display','none');
    alpha = fsolve(@neg, x0,opt);
end