I'd like to create a graphic that looks like the following using RegionPlot
with Mesh
:
I have three different plots and would like combine them with Show
:
abc = RegionPlot[1 > 0, {a, 0.001, 0.999}, {b, 0.01, 0.99}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 1}, {0, 1}}, Frame -> True, RotateLabel -> False, PlotStyle -> Opacity[0, White], BoundaryStyle -> {Opacity[0, Black], Thickness[0.004]}, Mesh -> 30, MeshFunctions -> {-#1 - #2 &}, MeshStyle -> GrayLevel[0.75], AspectRatio -> 1]
def = RegionPlot[-(a - 1.5)^2 + 1 < b, {a, 0.01, 0.99}, {b, 0.001,0.999}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 1}, {0, 1}}, Frame -> True, RotateLabel -> False, BaseStyle -> FontSize -> 12, PlotStyle -> White, BoundaryStyle -> {Opacity[0, Black], Thickness[0.004]}, Mesh -> None, AspectRatio -> 1]
Show[abc,def]
ghi = RegionPlot[-(6*a - 3)^2 + 0.75 < b, {a, 0.01, 0.99}, {b, 0.001,0.999}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 1}, {0, 1}}, Frame -> True, RotateLabel -> False, BaseStyle -> FontSize -> 12, PlotStyle -> White, BoundaryStyle -> {Opacity[0, Black], Thickness[0.004]}, Mesh -> None, MeshFunctions -> {-#1 - #2 &}, AspectRatio -> 1]
Show[abc,ghi]
Then I get with Show[abc, def, ghi]
Is there a way to remove the white-colored regions, i.e., let them be transparent, such that I can simply overlay the two plots? Simply changing their color to Transparent
results in the original mesh again.
Thanks a lot in advance!