Как построить функции и объединить их в один граф в Mathematica, используя метод Table [Plot [подход?

Question

Вот попытка построить 2-c Exp [-t] для c = -3 до 3 на 1 в Mathematica.

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