Monitor Evaluation Progress 

In[1]:=

X Monitor[sol = NDSolve[{Derivative[1][y][x] == y[x] Cos[x + y[x]], y[0] == 1}, y, {x, 0, 30}, EvaluationMonitor :> (Pause[0.005]; step = x)], AngularGauge[Dynamic[step], {0, 30}, GaugeLabels -> Automatic]]

In[2]:=

X Plot[Evaluate[y[x] /. sol], {x, 0, 30}, PlotRange -> All]

Track the progress when numerically solving a system of differential equations.

Play Animation » Stop Animation »