0
$\begingroup$

I have a set of inequalities that plot to the region given below, how do I find the analytical apexes that shape this region?

Reg = RegionPlot3D[
  1 >= a >= b >= 1 - b >= 1 - a >= 0 && 
  1 >= δ >= a - δ >= b - δ >= 1 - a - b + δ >= 0, 
  {a, 1/2, 1}, {b, 1/2, 1}, {δ, 0, 1},
  PlotPoints -> 200, MaxRecursion -> 10]

region

$\endgroup$
0

1 Answer 1

0
$\begingroup$

The region is surrounded by four planes:1 - x - y + z = 0, x = y, 1 - x - 2 y + 2 z = 0 and x = 2 z. We can find the crossover points of them.

Show[Reg, 
 Graphics3D[{PointSize[Large], Red, 
   Point[{x, y, z} /. 
     Catenate[
      Solve[#, {x, y, z}] & /@ 
       Subsets[{1 - x - y + z == 0, x == y, 1 - x - 2 y + 2 z == 0, 
         x == 2 z}, {3}]]]}]]

enter image description here

$\endgroup$
1
  • $\begingroup$ Thanks for the help! $\endgroup$
    – 2ub
    Commented Sep 24, 2017 at 6:16

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