Mathematica Code Used for ME 213 - Mechanical Systems the University of Rochester