The following notebook script can show 7 points on a plotted graph of Plot[x^2+1,{x,-3,2}],but fails to show the point {0, -1} on the graph. How can I show the point {0,-1} on the graph, too?
PlotPx = Plot[x^2 + 1, {x, -3, 2}];
PointSet = {{-3, 9}, {-2.5, 5.75}, {-2, 4}, {3, 9}, {-1, 2}, {-0.5,
1.75}, {0, -1}, {0, 2}, {1, 4}, {2, 8}};
PointMap = Map[Point, PointSet];
Show[PlotPx, Graphics[{PointSize[0.01], PointMap}],
AspectRatio -> Automatic, Axes -> True,
AxesLabel -> {x, "y=P(x)"}]