Wolfram Language

Enhanced Geo Visualization

Which Country Has This Bounding Box?

Draw latitude-longitude rectangles around 10 countries chosen randomly. How many can you recognize without seeing their actual shapes?

Take the list of all countries.

In[1]:=
Click for copyable input
Length[countries = EntityList[EntityClass["Country", All]]]
Out[1]=

Choose 10 of them randomly but do not show their names!

In[2]:=
Click for copyable input
sample10 = RandomSample[countries, 10];

Which countries have these geo bounding boxes?

In[3]:=
Click for copyable input
GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10}, GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]
Out[3]=

Click here to see how many you recognized.

show complete Wolfram Language input
In[4]:=
Click for copyable input
{Entity["Country", "Morocco"], Entity["Country", "India"], Entity["Country", "Uruguay"], Entity["Country", "Niger"], Entity["Country", "Vietnam"], Entity["Country", "Tajikistan"], Entity["Country", "Hungary"], Entity["Country", "Madagascar"], Entity["Country", "Bahamas"], Entity["Country", "Indonesia"]}

Related Examples

de es fr ja ko pt-br ru zh