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

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

2 Answers 2

3
$\begingroup$

Some clues here.

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

enter image description here

$\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

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.