wolfram-mathematica - Mathematica 中的奇怪替换行为

Question

我的问题是：为什么以下工作不起作用，我该如何解决？

Plot[f[t], {t, 0, 2*Pi}] /. {{f -> Sin}, {f -> Cos}}

结果是两个空白图表。通过对比，

DummyFunction[f[t], {t, 0, 2*Pi}] /. {{f -> Sin}, {f -> Cos}}

给

{DummyFunction[Sin[t], {t, 0, 2 *Pi}],  DummyFunction[Cos[t], {t, 0, 2 * Pi}]}

如预期的。

这是我实际所做的简化版本。我对此感到非常恼火，即使在弄清楚了放置大括号的烦人“正确方法”之后，也没有任何效果。

最后，我做了以下工作：

p[f_] := Plot[f[t], {t, 0, 2*Pi}]
p[Sin]
p[Cos]

Answer 1

作为彼得Hold/ReleaseHold策略的替代方案，您可以做

Plot[Evaluate[ f[t]/. {{f -> Sin}, {f -> Cos}} ], {t, 0, 2*Pi}]

读起来更干净一些。这确保在评估f之前被替换。Plot

Answer 2

这个更短：

Plot[#[t], {t, 0, 2*Pi}] & /@ {Sin, Cos}

Answer 3

Mathematica 试图在替换之前评估 Plot。您可以使用 Hold 和 ReleaseHold 功能防止这种情况发生：

ReleaseHold[Hold[Plot[f[t],{t,0,2*Pi}]] /. {{f -> Sin},{f -> Cos}}]

Hold[] 将强制整个 Plot 子表达式在执行替换时保持未简化，然后 ReleaseHold[] 将让它继续实际绘图。