Mathematica显示程序运行进度，新技能

CreatePalette[Dynamic@ProgressIndicator[progress]]
progress = 0;
Solve[{x + y == 3, x*y == 5}, {x, y}]
imax = 10;
Table[progress = i/imax; Pause[1]; i^2, {i, 1, imax}]

上面是程序案例，其中我自己的程序是Solve的部分，因此你要用的时候直接替换Solve部分就好，好用请点赞，谢谢。