wolfram-mathematica - 数学 : Plot the derivative of a piecewise function

Question

我正在尝试在 Mathematica 中绘制缓和函数的导数。它区分函数 OK，并且可以使用 % 绘制函数，但我希望能够通过将导数指定为函数 f[t_] 来绘制，然后 绘制[ f[t] , {t,-1,1} ]。

我不确定如何解决出现的错误。

Mathematica 代码是:

Clear[moll, f]

moll[x_] := 
Piecewise[ {  {E^(-1/(1 - x^2)), -1 < x < 1} , {0,x <= -1 || x >= 1}  } ]; (* Standard     mollifier *)

f[t_] := D[ moll[t] , t]

f[t]

Plot[%, {t, -1, 1}] (* this line works *)

Plot[f[t], {t, -1, 1}] (* this line comes up with an error *)

Answer 1

尝试使用 Plot[Evaluate[f[t]], {t, -1, 1}]

当涉及到用户定义的函数时，Plot 有点挑剔。