wolfram-mathematica - 绘制函数列表时使用 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}]