핵심 알고리즘

RankedMin에 대한 서브 레벨 

In[1]:=

X ParallelTable[ RegionPlot3D[ RankedMin[{x, y, z}, k] < 0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, PlotLabel -> HoldForm[RankedMin][{x, y, z}, k] < 0, Mesh -> None, PlotStyle -> Directive[Opacity[0.7], Orange], BoundaryStyle -> Black, NormalsFunction -> None, PlotPoints -> 35, AxesLabel -> Automatic], {k, 1, 3}] // Row

Out[1]=