0
|
2271 Views
|
2 Replies
|
0 Total Likes
View groups...
Share

# Improve the clarity of a graphic

Posted 10 years ago
 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:
2 Replies
Sort By:
Posted 10 years ago
Posted 10 years ago
 You might look at RegionPlot3D.F1[x_, y_] := a/(4 x + 2);F2[x_, y_] := a/(1 + 2 x + 2 y);v = a -> 2;p1 = RegionPlot3D[  z >= F1[x, y] /. v, {x, 0, 20}, {y, 0, 20}, {z, 0, 2}, Mesh -> None,   PlotStyle ->    Directive[Yellow, Specularity[White, 20], Opacity[0.7]],   PlotRange -> Full]