2

If I try:

RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
 Mesh -> None]

I get:

enter image description here

However, if I combine it with a ContourPlot:

Show[
 ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
  Axes -> True, AxesLabel -> Automatic,
  PlotLegends -> "Expressions"],
 RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
  Mesh -> None]
 ]

I get this:

enter image description here

Is there any way to get rid of all the mesh-like segments in the image? I did try Mesh->None.

Guess who it is idea worked:

Show[
 ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
  Axes -> True, AxesLabel -> Automatic,
  PlotLegends -> "Expressions"],
 RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5}],
 Method -> {"TransparentPolygonMesh" -> True}
 ]

Produced:

enter image description here

David
  • 14,883
  • 4
  • 44
  • 117

0 Answers0