Solutions
In[28]:=
Out[32]=
Created by
Mathematica
(April 10, 2007)
![Clear[q, l, c, r, t] ;](../HTMLFiles/ex06_solutions_34.gif){kind=small}
![Eq = l q''[t] + r q '[t] + 1/cq[t] 0 ;](../HTMLFiles/ex06_solutions_35.gif){kind=small}
![sol = DSolve[{Eq, q[0] 0.1, q '[0] 0}, q[t], t] ;](../HTMLFiles/ex06_solutions_37.gif){kind=small}
![Plot[q[t]/.sol, {t, 0, 0.1}, PlotRangeAll]](../HTMLFiles/ex06_solutions_38.gif){kind=small}
![[Graphics:../HTMLFiles/ex06_solutions_39.gif]](../HTMLFiles/ex06_solutions_39.gif)
