Fahrt nach Champaign
Veranschaulichen Sie die Straßen, die von den 300 größten Städten der USA zum Wolfram Research-Headquarter in Champaign, Illinois, führen.
In[1]:=
champaign = Entity["City", {"Champaign", "Illinois", "UnitedStates"}]Out[1]=
In[2]:=
us = Entity["Country", "UnitedStates"]Out[2]=
Dies ist die Liste der größten Städte der USA.
In[3]:=
Length[cities = CityData[{Large, "UnitedStates"}]]Out[3]=
Berechnen Sie Reiserouten nach Champaign.
In[4]:=
roads = Quiet@TravelDirections[{#, champaign}, "TravelPath"] & /@
cities;Entfernen Sie ein paar Routen, wie zum Beispiel die von Honolulu nach Champaign.
In[5]:=
Length[roads = Cases[roads, _GeoPath]]Out[5]=
Erstellen Sie die Karte.
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] // RasterizeOut[6]=
