Wolfram Language™

Welches Land hat diese Bounding Box?

Zeichnen Sie Breitengrad-Längengrad-Rechtecke um 10 zufällig ausgewählte Länder. Wie viele können Sie erkennen, ohne ihre tatsächliche Form zu sehen?

Nehmen Sie die Liste aller Länder her.

In[1]:=

Length[countries = EntityList[EntityClass["Country", All]]]

Out[1]=

Wählen Sie 10 davon zufällig aus, aber verbergen Sie deren Namen!

In[2]:=

sample10 = RandomSample[countries, 10];

Welche Länder haben diese geographischen Bounding Boxes?

In[3]:=

GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10}, GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]

Out[3]=

Klicken Sie hier, um herauszufinden, wie viele Sie erkannt haben.

In[4]:=

{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"]}