你们好,最近小时发现有诸多的小伙伴们对于切线方程公式大全,切线方程公式这个问题都颇为感兴趣的,今天小活为大家梳理了下,一起往下看看吧。
1、给出一条平面曲线:
2、r = {t Sin[t], t Cos[t]};
3、绘制曲线的图像:
4、ParametricPlot[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、Graphics[{Green, Arrow[{r /. t -> Pi, r + D[r, t] /. t -> Pi}]}];
13、用绿色表示。
14、算出切线的参数方程:
15、Solve[{x, y} - r == u D[r, t] /. t -> Pi, {x, y}] // Values // Flatten;
16、参数用u表示。
17、消去参数u,就得到直线的方程式:
18、Eliminate[{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}, ContourStyle -> Pink];
26、图中的粉色直线与切向量重合,说明这真是切线。
27、采用交互的方式,展示不同位置上的切线。
以上就是切线方程公式这篇文章的一些介绍,希望对大家有所帮助。