Какой стране принадлежит этот ограничивающий блок?
Начертите прямоугольники широты-долготы вокруг 10 случайно выбранных стран. Сколько из них Вы сможете угадать, не видя при этом их истинных очертаний?
Возьмите список всех стран.
In[1]:=
![Click for copyable input](assets.ru/which-country-has-this-bounding-box/In_25.png)
Length[countries = EntityList[EntityClass["Country", All]]]
Out[1]=
![](assets.ru/which-country-has-this-bounding-box/O_16.png)
Случайно выберите 10 из них, но не показывайте их названия!
In[2]:=
![Click for copyable input](assets.ru/which-country-has-this-bounding-box/In_26.png)
sample10 = RandomSample[countries, 10];
Каким странам принадлежат эти географические ограничивающие блоки?
In[3]:=
![Click for copyable input](assets.ru/which-country-has-this-bounding-box/In_27.png)
GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10},
GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]
Out[3]=
![](assets.ru/which-country-has-this-bounding-box/O_17.png)
Щёлкните здесь, чтобы проверить, сколько стран Вы угадали.
код на языке Wolfram Language целиком