WOLFRAM

Wolfram 语言与系统参考资料中心
监视计算的进展过程

监视计算的进展过程

跟踪数值求解微分方程组的进展过程：
Wolfram Language code: 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]]
Wolfram Language code: Plot[Evaluate[y[x] /. sol], {x, 0, 30}, PlotRange -> All]