免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

用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.     ]
复制代码
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

回复 1# 青青子衿

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

TOP

本帖最后由 青青子衿 于 2019-5-28 16:16 编辑

回复 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.     ]
复制代码

TOP

返回列表 回复 发帖