Mercurial > repos > public > sbplib

view +parametrization/old/concat_curve.m @ 1282:a52033540dd9 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make forcingSetup return empty array instead of zero function if all boundary data functions are empty.
author Martin Almquist <malmquist@stanford.edu>
date Mon, 15 Jun 2020 16:11:35 -0700
parents 3a3cf386bb7e
children
line wrap: on
line source

% Concatenate two curves g1 and g2 intop
%   g = concat_curve(g1,g2)
function g = concat_curve(g1,g2)
    function v = g_fun(t)
        if t < 1/2
            v = g1(2*t);
        else
            v = g2(2*t-1);
        end
    end
    g = @g_fun;
end