샴페인까지 운전하기

미국의 300대 도시에서 일리노이주 샴페인에 위치한 Wolfram Research의 본사까지의 운전 경로를 그립니다.

In[1]:=

champaign = Entity["City", {"Champaign", "Illinois", "UnitedStates"}]

Out[1]=

In[2]:=

us = Entity["Country", "UnitedStates"]

Out[2]=

다음은 미국 대도시의 목록입니다.

In[3]:=

Length[cities = CityData[{Large, "UnitedStates"}]]

Out[3]=

샴페인까지의 경로를 계산합니다.

In[4]:=

roads = Quiet@TravelDirections[{#, champaign}, "TravelPath"] & /@ cities;

호놀룰루에서 샴페인까지 등 운전 불가능한 경로는 제외합니다.

In[5]:=

Length[roads = Cases[roads, _GeoPath]]

Out[5]=

지도를 그립니다.

In[6]:=

GeoGraphics[{ GeoStyling[White], Polygon[us], Red, Opacity[.1], roads, Black, Opacity[0.6], Point[cities], Blue, Opacity[1], PointSize[Large], Point[champaign] }, GeoBackground -> LightBlue, ImageSize -> 600, GeoRange -> us] // Rasterize

Out[6]=