用MMA绘制平面曲线的单位切向量

青青子衿

1. f[x_] := {5 Cos[x], 4 Sin[x]}
2. h[x_] := FullSimplify[Normalize@g, Refine[Element[x, Reals]]]
3. Manipulate[
4. Show[ParametricPlot[{f[x]}, {x, 0, 2 Pi},
5.      PlotRange -> {{-6, 6}, {-5, 5}}],
6.     Graphics[{Arrow[{f[t], f[t] + Normalize@g /. x -> t}],
7.     Arrow[{f[t], f[t] - Normalize@D[h[x], x] /. x -> t}]}]], {t, 0.02,2 Pi}
8.     ]

复制代码

kuing

回复 1# 青青子衿

你是不是漏了给出 g 的定义

青青子衿

回复 2# kuing
是的，确实漏了。

1. f[x_] := {5 Cos[x], 4 Sin[x]}
2. g = D[f[x], x]
3. h[x_] := FullSimplify[Normalize@g, Refine[Element[x, Reals]]]
4. Manipulate[
5. Show[ParametricPlot[{f[x]}, {x, 0, 2 Pi},
6.      PlotRange -> {{-6, 6}, {-5, 5}}],
7.     Graphics[{Arrow[{f[t], f[t] + Normalize@g /. x -> t}],
8.     Arrow[{f[t], f[t] - Normalize@D[h[x], x] /. x -> t}]}]], {t, 0.02,2 Pi}
9.     ]

复制代码