Plot绘图中有参数时怎么办

Question

Plot[{f/w gaussianEnvelope[100][t] Sin[w t], 
   f/w gaussianEnvelope[100][t]}, {t, 0, 400}] /. {f -> 0.053, 
  w -> 0.057}

这样的话结果中什么图像也没有，该怎么处理？

Comments

把替换放到里面去：
Plot[Evaluate[{f/w gaussianEnvelope[100][t] Sin[w t],
    f/w gaussianEnvelope[100][t]} /. {f -> 0.053, w -> 0.057}], {t, 0,
   400}]

---

忘了这个函数，非常感谢boos

---

f := Function[t,
  Piecewise[{{Sin[(Pi t)/(6 T)]^2 Sin[\[Omega] t],
     0 <= t <= 3 T}, {Sin[\[Omega] t], t > 3 T}}]]

Plot[{Evaluate[f[t] /. {T -> 100, \[Omega] -> 0.057}],
  Sin[(Pi t)/(6 T)]^2}, {t, 0, 1200}]


这样的话，好像不对，我纯函数那里错了吗？

Answer 1

有两个地方有问题
1. f:=Function.....，把“:=”改用“=”，当然这不是错误
2. Evaluate后面的表达中也包含T，但你没有替换，这是问题所在

所以应该改成：

f = Function[t, 
   Piecewise[{{Sin[(Pi t)/(6 T)]^2 Sin[\[Omega] t], 
      0 <= t <= 3 T}, {Sin[\[Omega] t], t > 3 T}}]];

Plot[Evaluate[{f[t], 
    Sin[(Pi t)/(6 T)]^2} /. {T -> 100, \[Omega] -> 0.057}], {t, 0, 
  1200}]

不过，还是建议把Plot中的计算提到外面来，比如：

f = Function[t, 
   Piecewise[{{Sin[(Pi t)/(6 T)]^2 Sin[\[Omega] t], 
      0 <= t <= 3 T}, {Sin[\[Omega] t], t > 3 T}}]];
plotExpr = {f[t], 
    Sin[(Pi t)/(6 T)]^2} /. {T -> 100, \[Omega] -> 0.057};

Plot[plotExpr, {t, 0, 1200}]