![(*3.1*)Clear[m, y, t, g, a, F, k] ; m[t] := m_0 - a t ; m_0 = 1000 ; ... 1, 1] ; Plot[{y[t]/.y_1, y[t]/.y_0}, {t, 0, 90}, PlotStyle {Hue[0.1], Hue[0.9]}]](../HTMLFiles/ex06_solutions_23.gif)
Solutions
Here DSolve hangs, because the equation is far from linear, so we must seek a numerical solution. Note that if you try to solve this all the way to the end of the fuel, i.e. t→100, you get a warning for dividing by zero.
In[17]:=
![[Graphics:../HTMLFiles/ex06_solutions_24.gif]](../HTMLFiles/ex06_solutions_24.gif)
Out[22]=
| Created by Mathematica (April 10, 2007) |  |