请大家帮我画一个mathematica动态图，谢谢了

pic = Plot[Sin[x], {x, 0, 2 \[Pi]}];
Manipulate[
Show[pic, Graphics[{PointSize[0.02], Black, Point[{x0, Sin[x0]}]}],
Plot[Cos[x0] (x - x0) + Sin[x0], {x, 0, 2 \[Pi]}, PlotStyle -> Red],
PlotRange -> {-2, 2}], {x0, 0, 2 \[Pi]}]追问

太感谢了，希望以后不懂的能再问你

追答

好哒

本回答被提问者采纳