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绘制多个图？

1 个答案: