Wolfram Language™

Graphes du voisin le plus proche

Générez le graphe le plus proche voisin d'une collection de données arbitraires avec la nouvelle fonction dans la version 11 NearestNeighborGraph.

Construisez le graphe du plus proche voisin pour les pays d'Amérique du Sud.

In[1]:=

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

In[2]:=

g = NearestNeighborGraph[locs, VertexCoordinates -> coords]

Out[2]=

Stylisez le réseau au-dessus du continent.

In[3]:=

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

In[4]:=

Graph[g, opts]

Out[4]=

Montrez le graphe des 3 voisins les plus proches pour une collection de couleurs aléatoires.

In[5]:=

colors = RandomColor[50]

Out[5]=

In[6]:=

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

Out[6]=