漫游美国本土的所有州府
获取 48 个美国本土州的州府列表.
In[1]:=

capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]
Out[1]=

下载其 GeoPosition 坐标.
In[2]:=

GeoPosition[capitals]
Out[2]=

计算访问城市的次序以最小化测地距离.
In[3]:=

GeoPosition[capitals];
{d, perm} = FindShortestTour[%]
Out[3]=

在地图上显示该路径.
In[4]:=

GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium],
Point[capitals]}]
Out[4]=

现在计算在相同的城市间按同样的顺序驾驶旅行的路线.
In[5]:=

td = TravelDirections[capitals[[perm]]];
在地图上显示相应的路径.
In[6]:=

GeoGraphics[{td["TravelPath"], Red, PointSize[Medium],
Point[capitals]}]
Out[6]=

以下是总驾驶距离.
In[7]:=

td["TravelDistance"]
Out[7]=

与测地距离对比.
In[8]:=

d
Out[8]=
