Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 ProgressIndicatorEstimator

Source Notebook

Display progress of a computation together with estimated completion time

Contributed by: Jon McLoone

ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x],{xmin,xmax}]

represents a progress indicator and remaining time estimator with the range xmin to xmax.

Details and Options

xmin and xmax should be chosen to indicate the expected range of values that x must take before a computation is complete.
All options for ProgressIndicator are supported.

Examples

Basic Examples (2) 

Display an estimate of completion time for a simple Do loop:

In[1]:=
Monitor[Do[Pause[Random[]], {x, 0, 30}], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 30}]]

Display an estimate of completion time for a simple While loop:

In[2]:=
x = 0; Monitor[While[x < 200, Pause[Random[]]; x += RandomReal[10]], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 200}]]

Options (3) 

Control the refresh rate of the estimator. Note that a refresh rate shorter than the expected interval between changes to the tracked variable will result in an estimate that rises in a sawtooth, especially early in the process:

In[3]:=
Monitor[Do[Pause[RandomReal[1]], {x, 0, 60}], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 60}, UpdateInterval -> 5]]

If the progress is expected to be nonlinear, then use "History" to consider only recent progress. This example resets the estimator each time 10% progress is made:

In[4]:=
Monitor[Do[Pause[x/30], {x, 0, 60}], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 60}, "History" -> 0.1]]

Appearance -> None will not display the ProgressIndicator:

In[5]:=
Monitor[Do[Pause[Random[]], {x, 0, 30}], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 30}, Appearance -> None]]

Possible Issues (2) 

If the tracked symbol does not fall in the expected interval, then no estimate is returned:

In[6]:=
Monitor[Do[Pause[RandomReal[1]], {x, 61, 90}], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 60}]]

The time estimates will be meaningless if the tracked symbol does represent monotonic progress from the start to end values:

In[7]:=
Monitor[Do[Pause[RandomReal[1]]; x = RandomReal[{0, 60}], {60}], ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x], {0, 60}]]

Requirements

Wolfram Language 11.3 (March 2018) or above

Version History

  • 1.0.1 – 03 July 2024
  • 1.0.0 – 16 January 2019

Related Resources

License Information