mathematica 如何做物理运动图像?