Ache a menor rota entre as capitais do mundo 

Obtenha a lista das posições das capitais dos países que fazem parte da ONU.

In[1]:=

X countries = CountryData["UnitedNations"];

In[2]:=

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

In[3]:=

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

Encontre o caminho mais curto através das capitais.

In[4]:=

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

Esta é a extensão total do percurso.

In[5]:=

X distance

Out[5]=

Desenhe a rota.

In[6]:=

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

Out[6]=

Desenhe a rota com uma projeção azimutal.

In[7]:=

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

Out[7]=