dynamic - Mathematica：更新模块循环内的绘图

Question

我想要一个这样的模块

TestModule[n_] := Module[{{dataList = {{0, 0}, {1, 2}}}},
 For[i = 1, i <= n, i++,
 Pause[0.5];
 Print[ ListLinePlot[dataList++]];
 ];
];

其中一个列表的值从迭代到迭代更新，而不是让模块产生我 n 个图，我宁愿只有一个图，它在每次迭代后更新 n 次。

我已经查看了 Dynamics[] 和 Monitor[]，但还没有找到解决方案。任何帮助表示赞赏。:)

Answer 1

这是一个简单的应用Monitor：

TestModule[n_] := Module[{
    dataList = {{0, 0}, {1, 2}},
    plot = "starting..."
  },
  Monitor[
    Do[
      Pause[0.5];
      plot = ListLinePlot[dataList++, PlotRange -> {0, n + 2}],
      {i, 1, n}
    ],
    plot
  ];
  plot
];

你知道mathematica.stackexchange.com吗？您将在那里获得更多有关 Mathematica 特定问题的答案...