Welches Land hat diese Bounding Box?
Zeichnen Sie Breitengrad-Längengrad-Rechtecke um 10 zufällig ausgewählte Länder. Wie viele können Sie erkennen, ohne ihre tatsächliche Form zu sehen?
Nehmen Sie die Liste aller Länder her.
In[1]:=
![Click for copyable input](assets.de/which-country-has-this-bounding-box/In_25.png)
Length[countries = EntityList[EntityClass["Country", All]]]
Out[1]=
![](assets.de/which-country-has-this-bounding-box/O_16.png)
Wählen Sie 10 davon zufällig aus, aber verbergen Sie deren Namen!
In[2]:=
![Click for copyable input](assets.de/which-country-has-this-bounding-box/In_26.png)
sample10 = RandomSample[countries, 10];
Welche Länder haben diese geographischen Bounding Boxes?
In[3]:=
![Click for copyable input](assets.de/which-country-has-this-bounding-box/In_27.png)
GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10},
GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]
Out[3]=
![](assets.de/which-country-has-this-bounding-box/O_17.png)
Klicken Sie hier, um herauszufinden, wie viele Sie erkannt haben.
Den kompletten Wolfram Language-Input zeigen