How Do I Solve Equations with Mathematica?