I have a table that takes a long time to calculate because f[x]
is quite a complicated function:
Table[f[x], {m, 50, 1000, 50}, {x, 0, 50}]
It would be great to have a progress bar to give some idea of how long the evaluation will take to complete. Ideally, I would also like a counter stating which values of m
and x
are currently being assessed.
This thread offers a simple progress bar:
Monitor[
Table[Pause[0.1]; Prime[i], {i, 100}],
Row[{ProgressIndicator[i, {1, 100}], i}, " "]
]
But I can't figure out how to adapt this for a multi-row table with two variables, or how to produce a counter that tells me what values of m
and x
are currently being evaluated.
I'd be very grateful for any solutions.
Monitor[ Table[Pause[0.01]; Prime[m x], {m, 50, 1000, 50}, {x, 1, 50}], Grid[{ {"Total progress:", ProgressIndicator[Dynamic[m/1000]]}, {"Current row progress:", ProgressIndicator[Dynamic[x/50]]}, {"{m, x}=", {Dynamic@m, Dynamic@x}} }] ]
? $\endgroup$