Solve For Variable On Mathematica