请大家帮我画一个mathematica动态图,谢谢了sin[x],在0到2 Pi的图像,它的在每个x点上的切线不断变化,我不管怎么想总是画不出来,希望大家帮帮我,谢谢了!

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/25 03:51:27

请大家帮我画一个mathematica动态图,谢谢了
sin[x],在0到2 Pi的图像,它的在每个x点上的切线不断变化,我不管怎么想总是画不出来,希望大家帮帮我,谢谢了!

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]}]