Create a Voronoi diagram

Пример 3 шагов, выполняемых по порядку в одной сессии. Каждый шаг был выполнен на движке, и вывод ниже — то, что он дал.

Шаг 1

nf = Nearest[Table[{t Sin[t], t Cos[t]} -> t, {t, 5}]]

Вывод

Nearest[{{Sin[1], Cos[1]} -> 1, {2*Sin[2], 2*Cos[2]} -> 2, {3*Sin[3], 3*Cos[3]} -> 3, {4*Sin[4], 4*Cos[4]} -> 4, {5*Sin[5], 5*Cos[5]} -> 5}]

Шаг 2

DensityPlot[First[nf[{x, y}]], {x, -5, 5}, {y, -5, 5}]

Вывод

-Graphics-

Шаг 3

DensityPlot[First[nf[{x, y}]], {x, -5, 5}, {y, -5, 5}, PlotPoints -> 100]

Вывод

-Graphics-

Используемые функции