你们好,最近小活发现有诸多的小伙伴们对于切线方程的求法,切线方程这个问题都颇为感兴趣的,今天小活为大家梳理了下,一起往下看看吧。
1、 给出一条平面曲线:
2、 r={t Sin[t],t Cos[t]};
3、 绘制曲线的图像:
4、 参数plot[r,{t,-2 Pi,5 Pi},PlotStyle - Blue]。
5、 当t=Pi时,在曲线上画出这个点:
6、 Graphics[{Red,PointSize[0.01],Point[r /.t-Pi]}];
7、 圆点的颜色是红色的。
8、 计算该点的切向量:
9、 qie=D[r,t] /.t-Pi;
10、 原则是先衍生,再赋值。
11、 在曲面上绘制切向量:
12、 Graphic [{green, arrow [{r/. T-qi shan Pi, r D[r, t]/. t-Pi }]}];
13、 它是绿色的。
14、 计算切线的参数方程:
15、 求解[{x,y} - r==u D[r,t] /.t - Pi,{x,y}] //值//展平;
16、 参与腐败董事会的数量用u表示。
17、 通过消除参数u,得到直线方程:
18、 消除[{x==-Pi u,y==-Pi - u},u];
19、 直线还是用x和y表示。
20、 制作这条直线的图像:
21、 ContourPlot[
22、 Evaluate[Eliminate[{x, y}==
23、 Evaluate[
24、 Solve[{x, y} - r==u D[r, t] /. t - Pi, {x, y}] //Values //
25、 Flatten],u]],{x,-15,15},{y,-15,15},轮廓样式-粉红色];
26、 图中粉红色的直线与切向量重合,说明这确实是一条切线。
27、 以交互方式显示不同位置的切线。
以上就是切线方程这篇文章的一些介绍,希望对大家有所帮助。
标签:
免责声明:本文由用户上传,如有侵权请联系删除!