Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Интерактивные индикаторы
Мониторинг прогресса вычисления
In[1]:=
X
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]]
In[2]:=
X
Plot[Evaluate[y[x] /. sol], {x, 0, 30}, PlotRange -> All]
Отслеживание прогресса вычисления при решении системы дифференциальных уравнений.
Play Animation
»
Stop Animation
»