Solve Differential Equations In Mathematica