作业帮请大家帮我画一个mathematica动态图,谢谢了
来源：学生作业帮 编辑：拍题作业网作业帮 分类：数学作业 时间：2024/04/29 15:14:16
请大家帮我画一个mathematica动态图,谢谢了
sin[x],在0到2 Pi的图像,它的在每个x点上的切线不断变化,我不管怎么想总是画不出来,希望大家帮帮我,谢谢了!
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]}]
再问： 太感谢了，希望以后不懂的能再问你
再答： 好哒
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]}]
再问： 太感谢了，希望以后不懂的能再问你
再答： 好哒