This notebook contains the Mathematica commands from Chapter 16 of Introduction to Scientific Programming by Joseph L. Zachary.

(16.4)  "Solve" will find complex roots.

Solve[s^2 + 4*s + 4.25 == 0, s]

(16.6)  We plot the behavior of the damped harmonic oscillator described in Chapter 16.

Plot[Exp[-t/2] * (Cos[2*t] + 1/4*Sin[2*t]),
     {t,0,10}, AxesLabel->{"sec","m"}]