Solutions
In[8]:=
Out[11]=
Out[13]=
In[14]:=
Out[15]=
Out[16]=
Created by
Mathematica
(April 10, 2007)
![(*2.1*)Clear[m, g, k, y, v, t] ; y[t_] = y[t]/.Part[DSolve[{m g - k y '[t] & ... [t_] = D[y[t], t] ; Limit[v[t], tInfinity, Assumptions {k>0, m>0}]](../HTMLFiles/ex06_solutions_11.gif)
![y[t] = (g m ((-1 + ^(-(k t)/m)) m + k t))/k^2](../HTMLFiles/ex06_solutions_12.gif){kind=small}
![[Graphics:../HTMLFiles/ex06_solutions_13.gif]](../HTMLFiles/ex06_solutions_13.gif)
![(*2.2*)m = 10 ; k = 0.5 ; g = -9.81 ; Part[NDSolve[{m g - k z '[t] m ... 100}], 1, 1] Plot[{z[t]/.%, y[t]}, {t, 0, 100}, PlotStyle {Hue[0.2], Hue[0.8]}]](../HTMLFiles/ex06_solutions_16.gif)
![z[t] InterpolatingFunction[{{0., 100.}}, <>][t]](../HTMLFiles/ex06_solutions_17.gif){kind=small}
![[Graphics:../HTMLFiles/ex06_solutions_18.gif]](../HTMLFiles/ex06_solutions_18.gif)
