Algoritmos de núcleo

Cree distribuciones conjuntas de órdenes 

In[1]:=

X Framed[GraphicsGrid[ Partition[ Table[Plot3D[ PDF[OrderDistribution[{NormalDistribution[], 4}, k], {x, y}], {x, -3, 3}, {y, -3, 3}, Mesh -> None, PlotRange -> {0, 1}, ImageSize -> 170, PlotLabel -> k], {k, Subsets[Range[4], {2}]}], 3], ImageSize -> {550, 350}], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.3, FrameMargins -> 10, Background -> LightPurple]

Out[1]=