Wolfram言語™

この境界ボックスで囲まれた国は？

ランダムに選んだ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"]}