Mercurial > repos > public > sbplib
view time.m @ 678:06676c40e77f feature/poroelastic
Add scheme for complete elastic operator. Traction BC working with MMS variable coefficient.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Mon, 05 Feb 2018 11:06:15 -0800 |
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