Mercurial > repos > public > sbplib

view time.m @ 1089:d7f6c10eab13 feature/dataspline

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add function parametrization/dataSpline which accepts data points and returns a Curve object consisting of a spline interpolant with the arclength parametrization.
author Martin Almquist <malmquist@stanford.edu>
date Thu, 04 Apr 2019 17:57:24 -0700
parents 305d8bb366ce
children
line wrap: on
line source

function t_out = time(f, n)
    default_arg('n',1);

    if n == 1
        t = timeOnce(f);
    else
        t = timeAvg(f, n);
    end

    if nargout == 1
        t_out = t;
    else
        fprintf('Elapsed time is %.6f seconds.\n', t)
    end
end

function t = timeOnce(f)
    s = tic();

    f();

    t = toc(s);
end


function t = timeAvg(f, n)
    s = tic();

    for i = 1:n
        f();
    end

    t = toc(s)/n;
end