Create a Mathematica function that returns the solution for specified mass, viscous term, characteristic and applied frequencies
Experiment by plotting for many different values:
Undamped Resonance:
Undamped Near Resonance:
Damped Resonance:
Overdamped Resonance:
Damped Near Resonance:
Heavily damped Near Resonance: