Mercurial > repos > public > sbplib

view +anim/func.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 7f54cef985de
children
line wrap: on
line source

% Animates a function F(x,t) for x in lim from t to tend
function func(F, xrange, yrange, T, timeMod)
    default_arg('timeMod', 1);
    x = linspace(xrange(1),xrange(2), 200);

    fig_handle = figure;
    plot_handle = plot(x,F(x,T(1)));
    xlim(xrange)
    ylim(yrange)
    axis_handle = gca;


    function t = G(t)
        set(plot_handle,'YData',F(x,t))
        title(axis_handle,sprintf('T=%.3f',t));
        drawnow
    end

    anim.animate(@G, T(1), T(2), timeMod);
end