Использование ReplaceAll при построении списка функций

Question

Когда для списка функций используется ReplaceAll, PlotStyle для каждой функции теряется.

Пример с атрибутами по умолчанию:

GraphicsGrid[{{
   Plot[{Sin@Cos@t, Cos@Sin@t}, {t, 0, Pi}],
   Plot[{s@c@t, c@s@t} /. {s -> Sin, c -> Cos}, {t, 0, Pi}]
   }}]

Пример с настраиваемыми атрибутами:

GraphicsGrid[{{
  Plot[{Sin@Cos@t, Cos@Sin@t}, {t, 0, Pi}, PlotStyle -> {Dashed, {Red, Dotted}}],
  Plot[{s@c@t, c@s@t} /. {s -> Sin, c -> Cos}, {t, 0, Pi}, 
                                           PlotStyle -> {Dashed, {Red, Dotted}}]
   }}]

Это из-заспособ, которым Plot исследует свои аргументы перед фактическим построением.

Какой самый элегантный способ указать отдельные атрибуты PlotStyle для функций и, если возможно, восстановить атрибуты по умолчанию, когда PlotStyle не указан?

Примечание:

Конечно, выполнение

 Plot[{f1 /. replist, f2 /. replist ....} ..]

не считается "элегантным": D

Answer 1

Я бы, вероятно, просто использовал:

• Plot[{s@c@t, c@s@t} /. {s -> Sin, c -> Cos} // Evaluate, {t, 0, Pi}]

Или:

• Plot[#, {t, 0, Pi}] &[{s@c@t, c@s@t} /. {s -> Sin, c -> Cos}]