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

Question

这是尝试在Mathematica中为c = -3到3乘以1-2 Exp [-t]。

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

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

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

怎么办？另一种方法？

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}]