New in Wolfram Mathematica 6: Combinatorial Optimization ◄ previous | next ►
Find Real-World Shortest Paths
Find a shortest path visiting all countries in Europe.
In[1]:=

Click for copyable input
Graphics[{Gray, 

  CountryData[#, {"SchematicPolygon", "Equirectangular"}] & /@ 

   CountryData["Europe"], Thick, Red, 

  Line[#[[Last[FindShortestTour[#]]]] &[

    Reverse[CountryData[#, "CenterCoordinates"]] & /@ 

     CountryData["Europe"]]]}]
Out[1]=