Section 1.3: Slope Fields and Solution Curves 17
The original curve shown in Fig. 1.3.15 of the text (and its initial point not shown there)
are plotted by the commands
x0 = -1.9; y0 = 0;
point0 = Graphics[{PointSize[0.025], Point[{x0, y0}]}];
soln = NDSolve[{y'[x] == f[x, y[x]], y[x0] == y0}, y[x],
{x, a, b}];
curve0 = Plot[soln[[1, 1, 2]], {x, a, b}, PlotStyle ->
x0 = -2.5; y0 = 1;
point7 = Graphics[{PointSize[0.025], Point[{x0, y0}]}];
soln = NDSolve[{y'[x] == f[x, y[x]], y[x0] == y0}, y[x],
{x, a, b}];
curve7 = Plot[soln[[1, 1, 2]], {x, a, b},
PlotStyle -> {Thickness[0.0065], Blue}];
Show[curve7, point7]
The following command superimposes the two solution curves and starting points found
so far upon the slope field: