Mathematica画任意函数某点处切线

这里我们要看一下在Mathematica中如何画出对于任意函数某一点处的切线。当然，前提要是函数在那一点处是可导的。

写这个主要是为了做一下记录，因为画导数图是很常用的。下面就直接给出函数，方便直接使用。

代码

functionDerivatives[f_, x_] := Plot[{f[t], f'[x] (t - x) + f[x]}, {t, 0, 2 x}]

代码就是上面一行，理解起来也是很简单的，就是导数的定义，我们看一下效果图。

首先是x^2在x=4处的切线的图像

然后是Sin[x]在x=3处的切线的图像

上面函数的定义使用到了纯函数，可以看下面这篇文章里的介绍：Mathemaica中纯函数的使用