希望大家帮我用Mathematica编写一个动画
一条三维空间的曲线，就比如圆螺旋线r(t)=(cos(t),sin(t),t),它的切向量，主法向量，次法向量随着t的变化而变化，谢谢大家了...
一条三维空间的曲线，就比如圆螺旋线r(t)=(cos(t),sin(t),t),它的切向量，主法向量，次法向量随着t的变化而变化，谢谢大家了
展开
1个回答
展开全部
p1 = ParametricPlot3D[{Cos[t], Sin[t], t}, {t, 0, 4 \[Pi]},
BoxRatios -> {1, 1, 1/2}];
Manipulate[
Show[p1, Graphics3D[{Red,
Arrow[{{Cos[t0] + Sin[t0], Sin[t0] - Cos[t0],
t0 - 1}, {Cos[t0] - Sin[t0], Sin[t0] + Cos[t0], t0 + 1}}]}],
PlotRange -> {{-2, 2}, {-2, 2}, {-1, 4 \[Pi] + 1}}], {t0, 0,
4 \[Pi]}]
BoxRatios -> {1, 1, 1/2}];
Manipulate[
Show[p1, Graphics3D[{Red,
Arrow[{{Cos[t0] + Sin[t0], Sin[t0] - Cos[t0],
t0 - 1}, {Cos[t0] - Sin[t0], Sin[t0] + Cos[t0], t0 + 1}}]}],
PlotRange -> {{-2, 2}, {-2, 2}, {-1, 4 \[Pi] + 1}}], {t0, 0,
4 \[Pi]}]
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
