Wolfram 语言

地理计算

漫游美国本土的所有州府

获取 48 个美国本土州的州府列表.

In[1]:=
Click for copyable input
capitals = EntityValue[ EntityClass["AdministrativeDivision", "ContinentalUSStates"], "CapitalCity"]
Out[1]=

下载其 GeoPosition 坐标.

In[2]:=
Click for copyable input
GeoPosition[capitals]
Out[2]=

计算访问城市的次序以最小化测地距离.

In[3]:=
Click for copyable input
GeoPosition[capitals]; {d, perm} = FindShortestTour[%]
Out[3]=

在地图上显示该路径.

In[4]:=
Click for copyable input
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium], Point[capitals]}]
Out[4]=

现在计算在相同的城市间按同样的顺序驾驶旅行的路线.

In[5]:=
Click for copyable input
td = TravelDirections[capitals[[perm]]];

在地图上显示相应的路径.

In[6]:=
Click for copyable input
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium], Point[capitals]}]
Out[6]=

以下是总驾驶距离.

In[7]:=
Click for copyable input
td["TravelDistance"]
Out[7]=

与测地距离对比.

In[8]:=
Click for copyable input
d
Out[8]=

相关范例

de en es fr ja ko pt-br ru