[问题] XYZ数据 3D动画图

楼主: GOLDRAN (贝卡斯)   2014-11-05 18:08:16
对于Manipulate动画的用法,想请教版上大大
目前我有两组数据,皆是矩阵形式
ex: data1={{0,0,1},{0,1,0},{{0,0,1}}
data2={{0,1,0},{0,0,1},{{1,0,0}}
其个别表示X,Y,Z的值,两组DATA的数据量相同,且对应同个时间
我利用以下程式码,画出在球面上的行进轨迹
data1 = SetAccuracy[DAT1, 10]
Fig1 = Graphics3D[{Thick, Blue, Line[data1]}, Axes -> True,
BoxRatios -> Automatic, BoxStyle -> Directive[Dashed]];
Fig2 = Graphics3D[{Lighter[Yellow], Opacity[0.05],
Sphere[{0, 0, 0}, 1]}];
Fig3 = Graphics3D[{Dashed, Line[{{0, 0, 0}, {0, 0, 1}}]}];
Fig4 = ListPointPlot3D[data1, PlotStyle -> {Red, PointSize[Large]}];
FigS1 = Show[Fig1, Fig2, Fig3, Fig4]
目前有得出两个DATA的行进轨迹3D图
现在想把两个图合在一起,并且能观察两轨迹的相对位置
不知是否能做出这种动画??

Links booklink

Contact Us: admin [ a t ] ucptt.com