How To Solve Cubic Equation In Mathematica