Title: Solving Equations in Mathematica