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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 20:19:05
请大家帮我画一个mathematica动态图,谢谢了sin[x],在0到2 Pi的图像,它的在每个x点上的切线不断变化,我不管怎么想总是画不出来,希望大家帮帮我,谢谢了!

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

请大家帮我画一个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]}]