Ermitteln Sie die kürzeste Route durch die Hauptstädte der Welt 

Erstellen Sie die Liste mit den Positionen der Hauptstädte aller UNO-Staaten.

In[1]:=

X countries = CountryData["UnitedNations"];

In[2]:=

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

In[3]:=

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

Ermitteln Sie die kürzeste Route durch alle Hauptstädte.

In[4]:=

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

Das ist die Gesamtlänge der Route.

In[5]:=

X distance

Out[5]=

Zeichnen Sie die Route ein.

In[6]:=

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

Out[6]=

Zeichnen Sie die Route mit einer Azimuthalprojektion.

In[7]:=

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

Out[7]=