怎么用Mathematica定义一个函数，跟它的导数，并用Manipulate做出动图

这张图是对的

这张图就不对了，没有代码中的点，线跟曲线也对不上，也没有办法运行动图