我遇到了 this post并发现 belisarius 的回答很有趣。想知道 he 是否有人可以发布 his
完成 mma 代码并给出一些解释。一般来说,我的问题是关于如何在 mma 中实现这种动画/绘图行为。我觉得很神奇!
非常感谢。
最佳答案
如果需要进一步解释,请告诉我。
x[t_] := {Cos@t, Sin@t, .1 t} /; t <= 3 Pi;
x[t_] := {Cos@t, Sin@t, .3 Pi (4 - t/Pi)} /; t > 3 Pi;
plotRange = {{-110, 110}, {-110, 110}, {-10, 110}};
z1 = ParametricPlot3D[100 x[t], {t, 0, 4 Pi}, PlotRange -> plotRange];
hel = Import["ExampleData/helicopter.dxf.gz",
ViewPoint -> {10, 10, 10}, AlignmentPoint -> {80, 80, 80}];
zz = Table[
Show[z1,
Graphics3D[
Translate[Rotate[First[hel], t + Pi/2, {0, 0, 1}], 100 x[t]]],
PlotRange -> plotRange], {t, 0, 4 Pi, 4 Pi/15}];
Export["c:\\test.gif", zz, "DisplayDurations" -> .5]
(* Or
Animate[Show[z1,
Graphics3D[
Translate[Rotate[First[hel], t + Pi/2, {0, 0, 1}], 100 x[t]]],
PlotRange -> plotRange], {t, 0, 4 Pi}]
可以使用曲线导数计算直升机旋转。现在太懒了。
编辑
遵守Sjoerd的家居装修规定:
关于wolfram-mathematica - 在 Mathematica 中沿 3D 路径移动 AutoCad DXF 实体,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5603044/