Wolfram言語

向上した地理の可視化

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

ランダムに選んだ10ヶ国の周りに経緯度の矩形を描画する.実際の形を見ないで,いくつの国が分かるだろうか.

すべての国のリストを取る.

In[1]:=
Click for copyable input
Length[countries = EntityList[EntityClass["Country", All]]]
Out[1]=

その中から10ヶ国をランダムに選ぶが,国名は伏せておく.

In[2]:=
Click for copyable input
sample10 = RandomSample[countries, 10];

これらの境界ボックスで囲まれている国はどこだろう.

In[3]:=
Click for copyable input
GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10}, GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]
Out[3]=

ここをクリックして,何ヶ国分かったか見てみよう.

完全なWolfram言語入力を表示する
In[4]:=
Click for copyable input
{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"]}

関連する例

de en es fr ko pt-br ru zh