Quel est le pays qui possède cette boîte de délimitation ?
Dessinez des rectangles de latitude et de longitude autour de 10 pays choisis au hasard. Combien d'entre eux reconnaissez-vous sans voir leur forme réelle ?
Prenez la liste de tous les pays.
In[1]:=
![Click for copyable input](assets.fr/which-country-has-this-bounding-box/In_25.png)
Length[countries = EntityList[EntityClass["Country", All]]]
Out[1]=
![](assets.fr/which-country-has-this-bounding-box/O_16.png)
Choisissez 10 d'entre eux au hasard mais ne montrez pas leurs noms !
In[2]:=
![Click for copyable input](assets.fr/which-country-has-this-bounding-box/In_26.png)
sample10 = RandomSample[countries, 10];
Quels sont les pays qui possèdent ces boîtes de délimitation géographique ?
In[3]:=
![Click for copyable input](assets.fr/which-country-has-this-bounding-box/In_27.png)
GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10},
GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]
Out[3]=
![](assets.fr/which-country-has-this-bounding-box/O_17.png)
Cliquez ici pour savoir combien vous en avez reconnu.
Afficher l'entrée complète de Wolfram Language