f[x_, y_] = 2 + (x y^2)/7;
(*initial conditions*)
Y[0] = 0; x[0] = 0;
(*number of intervals and step size*)
n = 4; h = 2/n // N;
(*table of points*)
pnts = Table[{x[i] = x[i - 1] + h,
Y[i] = Y[i - 1] + h f[x[i - 1], Y[i - 1]]}, {i, 1, n}]
{{0.5, 1.}, {1., 2.03571}, {1.5, 3.33172}, {2., 5.52105}}
ListPlot[pnts, AxesLabel -> {x, y}]
I was wondering how i can set up a control to have a slider for the 'n' steps? Any pointers would be great