Cities of the Eastern Time Zone
Cities of the Eastern Time Zone
PeterCullenBurbery
I explore cities in my time zone.
Time Zone
Time Zone
List data on the time zone of New York City NYC:
In[]:=
Out[]=
|
View the data in a property association:
In[]:=
Out[]//Shallow=
{US/Eastern},{40.7142,-74.0064},,Interval,,Interval,,Interval,,,,,,,True,,,14
What time zone categories are there?
In[]:=
EntityClassList["TimeZone"]
Out[]=
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
What time zones are GMT-5?
In[]:=
EntityList
Out[]=
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Where are the time zones?
In[]:=
Out[]=
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Make a map:
In[]:=
ResourceFunction["BirdSay"]GeoListPlot,GeoBackground->{"Coastlines","VectorBusiness"}
Out[]=
Find the geo bounds:
In[]:=
GeoBoundingBox
Out[]=
{GeoPosition[{-18.3497,-92.2672}],GeoPosition[{83.1106,-57.1}]}
In[]:=
GeoBounds
Out[]=
{{-18.3497,83.1106},{-92.2672,-57.1}}
Make a map of the bounds of the cities and the time zone:
In[]:=
ResourceFunction["BirdSay"]GeoGraphicsAppendGeoMarker/@,GeoBoundsRegion,GeoBackground->"VectorWeb",ImageSize->Full
The markers are scaled down so they don't overlap with Scaled.
In[]:=
ResourceFunction["BirdSay"]GeoGraphicsAppendGeoMarker[#,"Scale"->Scaled[0.03]]&/@,GeoBoundsRegion,GeoBackground->"VectorWeb",ImageSize->Full
Out[]=
Find the bounds of the host cities.
Plot the bounds only:
Find the spatial median:
Add it to the map:
Sort the cities by distance:
Store the cities for reference
Find a shortest tour through all the cities: