Поездка на машине в Шампейн
Начертите дороги от 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]=
