Quel pays a ce carré de délimitation
Tracez des rectangles de latitude-longitude d'environ pays choisis au hasard. Combien pouvez-vous reconnaître leurs formes actuelles sans voir?
Prenez la liste de tous les pays.
In[1]:=

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

Choisissez 10 d'entre eux au hasard, montrez ses nombres.
In[2]:=

sample10 = RandomSample[countries, 10];
Quels pays ont ces carrés de délimitation?
In[3]:=

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

Cliquez ici pour voir combien vous reconnaissez.
Montrer l'entrée complète de Wolfram Language