Mercurial > repos > public > sbplib

view spyh.m @ 1124:c2d281633e14 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 12db86a8ec7b
children
line wrap: on
line source

% spyh mimics the built in spy but returns a handle which allows modifying the plot.
function h = spyh(A)
    [n,m] = size(A);
    [I,J] = find(A);

    if ~isempty(J)
        h = plot(J,I);
        h.LineStyle = 'none';
        h.Marker = '.';
        h.MarkerSize = 14;
    else
        h = [];
    end

    a = gca;
    xlim([0 m+1]);
    ylim([0 n+1]);
    axis square
    a.YDir = 'reverse';
end