plot - 如何使用 Table[Plot[ 方法在 Mathematica 中绘制函数并组合成一个图形？

Question

这是尝试在 Mathematica 中将 c=-3 到 3 的 2-c Exp[-t] 绘制为 1。

Table[Plot[2 - c  Exp[-t], {t, 0, 1}], {c, -3, 3}]

我希望将这 7 个图组合成一张图像。以下给出了错误消息。

Show[{%, %%, %%%, %%%%, %%%%%, %%%%%%, %%%%%%%}]

怎么做？另一种方法？

标签： plotwolfram-mathematica

Answer 1

有很多方法可以做到这一点。作为最基本的情况，这将起作用：

Show[
 Table[Plot[2 - c Exp[-t], {t, 0, 1}], {c, -3, 3}],
 PlotRange -> All
 ]

但这里有一个更干净的：

Plot[Evaluate@Table[2 - c Exp[-t], {c, -3, 3}], {t, 0, 1}]