sample ode numerical solution in mathematica