Язык Wolfram Language™

Какой стране принадлежит этот ограничивающий блок?

Начертите прямоугольники широты-долготы вокруг 10 случайно выбранных стран. Сколько из них Вы сможете угадать, не видя при этом их истинных очертаний?

Возьмите список всех стран.

In[1]:=

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

Out[1]=

Случайно выберите 10 из них, но не показывайте их названия!

In[2]:=

sample10 = RandomSample[countries, 10];

Каким странам принадлежат эти географические ограничивающие блоки?

In[3]:=

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

Out[3]=

Щёлкните здесь, чтобы проверить, сколько стран Вы угадали.

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