Question

怎么用mathematica做自由落体的动画

Answer 1

　　

　　Animate[Graphics[{Gray, Disk[{5, -4.9 t^2}, 1]}, Axes -> True,

　　AxesOrigin -> {0, 0}, PlotRange -> {-45, 0}], {t, 0, 3}]

　　

　　

　　Manipulate[

　　Graphics3D[{Orange, Specularity[White, 50],

　　Sphere[{0, 0, 10000 - 0.5*10*t^2}, 200]}, Boxed -> False,

　　PlotRange -> {0, 10200}, ImageSize -> {400, 400}], {{t, 0, "time"},

　　0, 44.72, ControlType -> Trigger}]