繪製函數列表時使用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}}] 
    }}] 

這是因爲這樣的情節實際上繪製之前探索它的參數。

指定函數的各個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}]