> restart: with(plots):

Вначале мы графически продемонстрируем изменение положения касательной, используя анимацию. А уж затем покажем, как вывести уравнение касательной к графику функции в данной точке.

> f:=x->x^3-5*x^2+x+10;

> T := (x,a) -> f(a) + (x - a) * D(f)(a) :

> display(plot(f(x), x=-2..5, y=-8..12, thickness = 3, color = red),
animate(T(x,t), x=-2..5, t=-1..5, view=-8..12, color = blue, frames=60));