Encuentre la ruta más corta a través de las capitales del mundo 

Obtenga la lista de las posiciones de las capitales de los países de la ONU.

In[1]:=

X countries = CountryData["UnitedNations"];

In[2]:=

X capitals = EntityValue[countries, "CapitalCity"];

In[3]:=

X positions = EntityValue[capitals, "Position"];

Encuentre la ruta más corta a través de las capitales.

In[4]:=

X {distance, perm} = FindShortestTour[positions];

Ésta es la distancia total de la ruta.

In[5]:=

X distance

Out[5]=

Trace la ruta.

In[6]:=

X GeoGraphics[{GeoPath[positions[[perm]]], Red, Point /@ positions}, GeoRange -> "World", GeoCenter -> 40, GeoBackground -> "StreetMapNoLabels"]

Out[6]=

Trace la ruta con una proyección azimutal.

In[7]:=

X GeoGraphics[{GeoPath[positions[[perm]]], Red, Point /@ positions}, GeoProjection -> {"LambertAzimuthal", "Centering" -> {0, 40}}, GeoRange -> "World"]

Out[7]=