Consider the code
Table1[m_]:=Table[{m,NIntegrate[Exp[-I*m*x],{x,0,1000}]},{i,0,8000,1}]
Table2=Join[Table1[1],Table1[5],Table1[0.2],Table1[0.08]]
How to create a progress indicator for the operation in the second row?
Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this communityIt seems that I have an idea. The realization, although stupid, is the following.
Table1[m_] :=
Table[{m, NIntegrate[Exp[-I*m*x], {x, 0, 1000}]}, {i, 0, 80, 1}]
M := Association[{1 -> 1, 2 -> 5, 3 -> 0.2, 4 -> 0.08}]
Monitor[Table11 = Table[{Table1[M[j]]}, {j, 1, 4, 1}],
Row[{ProgressIndicator[j, {1, 4}], j}, " "]]
Table2 = Join[Table11[[1]], Table11[[2]], Table11[[3]], Table11[[4]]]
Table1[5]
? $\endgroup$