一段很简单的代码
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}]
你可以去http://demonstrations.wolfram.com/search.html?query=Free%20Fall，官方网站有很多自由落体的例子
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}]
你可以去http://demonstrations.wolfram.com/search.html?query=Free%20Fall，官方网站有很多自由落体的例子
