Solutions
In[1]:=
The highest point is where the speed of the ball is zero.
In[5]:=
Created by
Mathematica
(April 10, 2007)
![(*1*)Clear[y, t] ; g = -9.81 ; y[t_] = y[t]/.Part[DSolve[{y''[t] g, ... , y '[0] 10}, y[t], t], 1] ; Print["y[t] = ", y[t]] Clear[g] ;](../HTMLFiles/ex06_solutions_4.gif)
![y[t] = 10 t - 4.905 t^2](../HTMLFiles/ex06_solutions_5.gif){kind=small}
![(*2*)v[t_] = D[y[t], t] ; Print[y = , y[t]/.Part[Solve[v[t] 0, t] ... max y = 0](../HTMLFiles/ex06_solutions_6.gif)
