Define region between two curves

Provide the coordinate bounds in the second argument of ImplicitRegion:

rf = ImplicitRegion[y <= f[x], {{x, 0, 4}, {y, 0, 200}}]
ImplicitRegion[y <= 12 x^2 && 0 <= x <= 4 && 0 <= y <= 200, {x, y}]
rg = ImplicitRegion[y >= g[x], {{x, 0, 4}, {y, 0, 200}}]
ImplicitRegion[y >= 3 x^3 && 0 <= x <= 4 && 0 <= y <= 200, {x, y}]
intersection = RegionIntersection @@ {rf, rg};

Region[#, AspectRatio -> 1] & /@ {rf, rg, intersection}

enter image description here

RegionPlot gives a better picture:

RegionPlot /@ {rf, rg, intersection}

enter image description here

RegionPlot[{rf, rg, intersection}]

enter image description here


Just a direct way to do:

ir = ImplicitRegion[g[x] < y < f[x], {{x, 0, 4}, {y, 0, 200}}];
ra = ImplicitRegion[y > f[x], {{x, 0, 4}, {y, 0, 200}}];
rb = ImplicitRegion[y < g[x], {{x, 0, 4}, {y, 0, 200}}];
rgns = {ir, ra, rb};
leg = First /@ rgns;
RegionPlot[{##}, PlotLegends -> leg] & @@ rgns

enter image description here

Tags:

Regions