샴페인까지 운전하기
미국의 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]=