Wolfram Language™

¿Cuál país tiene este cuadro de delimitación?

Trace rectángulos de latitud-longitud alrededores de 10 países elegidos al azar. ¿Cuántos puede reconocer sin ver sus formas reales?

Tome la lista de todos los países:

In[1]:=

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

Out[1]=

Seleccione 10 de ellos al azar, pero no muestre sus nombres.

In[2]:=

sample10 = RandomSample[countries, 10];

¿Cuáles países tienen estos cuadros de delimitación?

In[3]:=

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

Out[3]=

Haga clic aquí para ver cuántos reconoció usted.

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