1
$\begingroup$

This code

DiscretizeRegion[
ImplicitRegion[y/(0.2*Max[x,z]) >= Max[x,z]/Abs[x-z] && y/(0.9*Max[x,z]) <= Max[x,z]/Abs[x-z] && 
x + y + z == 1, {{x, 0, 1}, {y, 0, 1}, {z, 0, 1}}], 
 MaxCellMeasure -> {"Length" -> 0.01}, Method -> "ContourPlot3D", PlotTheme -> "DarkMesh"]

produces the graph below, whose lower tails are chopped.

Could it be refined somehow so that the full graph is shown?

enter image description here

$\endgroup$
2
  • $\begingroup$ Appears chopped because of the limits imposed on region. Try adding options to the plot: Boxed -> True, AxesLabel -> {"X", "Y", "Z"}, BoxRatios -> {1, 1, 1} $\endgroup$ – Dominic Apr 2 at 19:39
  • $\begingroup$ Thank you, that's helpful. $\endgroup$ – user_xyz Apr 3 at 7:04

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.