Mercurial > repos > public > sbplib
view +time/Timestepper.m @ 3:5205251db8c3
Added some smartness to evolve with progress.`
author | Jonatan Werpers <jonatan@werpers.com> |
---|---|
date | Fri, 18 Sep 2015 13:30:19 +0200 |
parents | 48b6fb693025 |
children | b18d3d201a71 |
line wrap: on
line source
classdef Timestepper < handle properties (Abstract) t k n end methods (Abstract) [v,t] = getV(obj) obj = step(obj) end methods function [v,t] = stepN(obj,n,progress_bar) if progress_bar && n > 1500 n1000 = floor(n/1000); s = util.replace_string('',' %d %%',0); for i=1:n obj.step(); if mod(i,n1000) == 0 s = util.replace_string(s,' %.2f %%',i/n*100); end end s = util.replace_string(s,''); else for i=1:n obj.step(); end end v = obj.getV; t = obj.t; end function [v,t] = evolve(obj, tend, progress_bar) default_arg('progress_bar',false) if progress_bar obj.evolve_with_progress(tend); else obj.evolve_without_progress(tend); end v = obj.getV; t = obj.t; end function evolve_with_progress(obj, tend) FRAME_RATE = 20; dt = tend-obj.t; steps_to_update = 1; steps_since_update = 0; last_update = tic(); s = util.replace_string('',' %d %%',0); while obj.t < tend - obj.k/100 obj.step(); steps_since_update = steps_since_update + 1; if steps_since_update >= steps_to_update s = util.replace_string(s,' %.2f %%',obj.t/tend*100); time_since_update = toc(last_update); time_error = time_since_update - 1/FRAME_RATE; time_per_step = time_since_update/steps_since_update; steps_to_update = max(steps_to_update - 0.9*time_error/time_per_step ,1); steps_since_update = 0; last_update = tic(); end end % if t < tend % v = rk4.rungekutta_4(v, t, tend-t,F); % end s = util.replace_string(s,''); end function evolve_without_progress(obj, tend) while obj.t < tend - obj.k/100 obj.step(); end % if t < tend % v = rk4.rungekutta_4(v, t, tend-t,F); % end end end end