[Creating Movies and Animations in Mathematica] #Mathematica

cmainm.md

Step 1: Generate Data

x[t_] = 5 Cos[t];
y[t_] = 2 Sin[t];
z[t_] = t;
ParametricPlot3D[{x[t], y[t], z[t]}, {t, 0, 2 \[Pi]}]
tRange = Range[0, 2 \[Pi], (2 \[Pi])/99];   (*创建100个时间步，保存为列表*)
movieVector = ConstantArray[0, Length[tRange]]; 

Step 2: Draw/Render the Scenario

Step 3: Take a Snapshot

Step 4: Advance Time Forward

For[k = 1, k <= Length[tRange], k++,
 (*提取单个点的数据*)
 tk = tRange[[k]];
 xk = x[tk];
 yk = y[tk];
 zk = z[tk];
 
 (*Render the scenario*)
 movieVector[[k]] = Show[
   (*仅将点绘制为绿点*)
   Graphics3D[
    {
     AbsolutePointSize[15], Green, Point[{xk, yk, zk}]
     }
    ],
   
   (*绘制整个轨迹/曲线*)
   ParametricPlot3D[{x[t], y[t], z[t]}, {t, 0, 2 \[Pi]}],
   
   (*布置场地*)
   AxesLabel -> {"x", "y", "z"},
   PlotLabel -> StringJoin["t = ", ToString[N[tk]]]
   ]
 ]

Step 5: Save Movie

fileName = "curveMathematica.avi";
Export[fileName, movieVector];
Video[fileName]