0
$\begingroup$

How can one increase the quality of the following plot

 RegionPlot3D[{2z>= x+y&&x-y==0},{x,0,1},{y,0,1},{z,0,1},Mesh->None,MaxRecursion->6]

enter image description here

Improve this question
$\endgroup$
3
  • $\begingroup$ Add the option: PlotPoints -> 40 ? $\endgroup$ Commented Jan 9, 2023 at 15:37
  • $\begingroup$ @Syed, it produces more number of vertical lines which are still distorted and blurred. $\endgroup$ Commented Jan 9, 2023 at 15:40
  • 1
    $\begingroup$ How about: {2 z >= x + y && Abs[x - y] <= 0.02} ? $\endgroup$ Commented Jan 9, 2023 at 15:55

2 Answers 2

Reset to default
3
$\begingroup$

Some clues here.

RegionPlot3D[ DiscretizeRegion[ ImplicitRegion[{2 z >= x + y && x - y == 0}, {x, y, z}]]]

enter image description here

Improve this answer
$\endgroup$
3
$\begingroup$

Or using ContourPlot3D.

ContourPlot3D[x - y == 0, {x, 0, 1}, {y, 0, 1}, {z, 0, 1}, RegionFunction -> Function[{x, y, z}, 2 z >= x + y], RegionBoundaryStyle -> None] 
ContourPlot3D[ x - y == 0, {x, y, z} ∈ ImplicitRegion[2 z >= x + y, {{x, 0, 1}, {y, 0, 1}, {z, 0, 1}}], RegionBoundaryStyle -> None]

enter image description here

Improve this answer
$\endgroup$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.