作者:
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圖
現在想把兩個圖合在一起,並且能觀察兩軌跡的相對位置
不知是否能做出這種動畫??