Message Boards Message Boards

0
|
2476 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
Share this post:

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:
POSTED BY: Pablo H
2 Replies
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]
POSTED BY: David Keith
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract