Mathematica でモリファイア関数の導関数をプロットしようとしています。関数 OK を微分し、 を使用して関数をプロットできますが、導関数を関数に%
割り当ててプロットできるようにしたいと思います。f[t_]
Plot[ 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 *)