Hello,
I want to use Mathematica to plot 2, 3D graphs which delimit different regions on the space, and I want to show which are the differences between the region they delimite. This regions are
z>= cte /(4 x + 2) and z>= cte/(1+2x+2y)
To now, what I have made is:
F1[x_, y_] := a/(4 x + 2);
F2[x_, y_] := a/(1 + 2 x + 2 y);
p1 = Plot3D[F1[x, y], {x, 0, 20}, {y, 0, 20}, Mesh -> None,
PlotStyle -> Directive[Yellow, Specularity[White, 20], Opacity[0.7]],
ExclusionsStyle -> {None, Red}, PlotRange -> Full]
p2 = Plot3D[F2[x, y], {x, 0, 20}, {y, 0, 20}, Mesh -> None,
PlotStyle -> Directive[Red, Specularity[White, 20], Opacity[0.8]],
ExclusionsStyle -> {None, Red}, PlotRange -> Full]
Show[p1,p2]
But I am not quite happy with the result, which in my opinion lacks the clarity enough for a formal document.
Can someone with more ability for representations help me to get a better representation?
Attachments:
