Язык Wolfram Language

Улучшенная геовизуализация

Поездка на машине в Шампейн

Начертите дороги от 300 самых больших городов в США до штаб-квартиры Wolfram Research в Шампейн, штат Иллинойс.

In[1]:=
Click for copyable input
champaign = Entity["City", {"Champaign", "Illinois", "UnitedStates"}]
Out[1]=
In[2]:=
Click for copyable input
us = Entity["Country", "UnitedStates"]
Out[2]=

Далее представлен список самых больших городов в США.

In[3]:=
Click for copyable input
Length[cities = CityData[{Large, "UnitedStates"}]]
Out[3]=

Рассчитайте маршруты до г. Шампейн.

In[4]:=
Click for copyable input
roads = Quiet@TravelDirections[{#, champaign}, "TravelPath"] & /@ cities;

Исключите несколько не удовлетворяющих требованиям результатов, таких как маршрут Гонолулу-Шампейн.

In[5]:=
Click for copyable input
Length[roads = Cases[roads, _GeoPath]]
Out[5]=

Начертите карту.

In[6]:=
Click for copyable input
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]=

Родственные примеры

de en es fr ja ko pt-br zh