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]