Wolfram Language™

Grafo del vecino más cercano

Genere el grafo del vecino más cercano de una colección de datos arbitrarios con la nueva función en la versión 11 NearestNeighborGraph.

Construya el grafo del vecino más cercano para países de América del Sur.

In[1]:=

locs = CountryData["SouthAmerica"]; coords = EntityValue[locs, "Position"][[All, 1, {2, 1}]];

In[2]:=

g = NearestNeighborGraph[locs, VertexCoordinates -> coords]

Out[2]=

Estilice la red en la parte superior del continente.

In[3]:=

opts = { PlotTheme -> "Web", Prolog -> {EdgeForm[Thin], LightGray, EntityValue[locs, "Polygon"]}, PlotRange -> Reverse[GeoBounds[locs]] };

In[4]:=

Graph[g, opts]

Out[4]=

Muestre el grafo de los 3 vecinos más cercanos para una colección de colores al azar.

In[5]:=

colors = RandomColor[50]

Out[5]=

In[6]:=

NearestNeighborGraph[colors, 3, VertexShapeFunction -> "Name"]

Out[6]=