Qual país está delimitado neste formato?
Desenhe retângulos de latitude-longitude de cerca de dez países escolhidos de forma aleatória. Quantos você consegue reconhecer sem realmente ver seus formatos reais?
Pegue a lista de todos os países.
In[1]:=
![Click for copyable input](assets.pt-br/which-country-has-this-bounding-box/In_25.png)
Length[countries = EntityList[EntityClass["Country", All]]]
Out[1]=
![](assets.pt-br/which-country-has-this-bounding-box/O_16.png)
Escolha 10 aleatoriamente, mas não mostre seus nomes!
In[2]:=
![Click for copyable input](assets.pt-br/which-country-has-this-bounding-box/In_26.png)
sample10 = RandomSample[countries, 10];
Qual país está delimitado neste formato diferente?
In[3]:=
![Click for copyable input](assets.pt-br/which-country-has-this-bounding-box/In_27.png)
GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10},
GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]
Out[3]=
![](assets.pt-br/which-country-has-this-bounding-box/O_17.png)
Clique aqui para ver quantos você conseguiu reconhecer.
mostre o input completo da Wolfram Language