如何使用 For 和 Plot 函数绘制多个图？

Question

我需要制作几张图，我正在尝试在 For 的帮助下完成。我的数据：

0.0023709,8.5752e-007,4.847e-008

我的代码：

column1 = data[[All,1]]
For[i = 1, i < 4, Plot[column1[[i]]*t, {t, 0, 10}]]

在运行 Mathematica 之后写 "Running" 就可以了。我想为一些列表制作几个图并导出它们。请帮我解决这个问题。

Answer 1

首先，像您的代码一样使用 For。

data = {{1, 0}, {2, 0}, {3, 0}};
output = {};
column1 = data[[All, 1]];
 For[i = 1, i < 4, i++,
  AppendTo[output,
   ListPlot[Table[column1[[i]]*t, {t, 0, 10}]]]]
output

二、等价方法

output = Table[ListPlot[Table[column1[[i]]*t, {t, 0, 10}]], {i, 1, 3}]

如何使用 For 和 Plot 函数绘制多个图？

How to make many plots, with functions For and Plot?

plot

for-loop

wolfram-mathematica

list