指定された位置から最も近い海を見付ける 

カザフスタンのタルディコルガンに最も近い海を見付ける．

In[1]:=

X p = Entity["City", {"Taldikorgan", "Almaty", "Kazakhstan"}];

In[2]:=

X nearestseas = GeoNearest["Ocean", p, 5]

Out[2]=

その位置から最も近い海までの距離を計算する．

In[3]:=

X nearestdistances = GeoDistance[p, nearestseas] // QuantityThread

Out[3]=

In[4]:=

X {minDist, maxDist} = nearestdistances[[{1, -1}]]

Out[4]=

海までの距離を地図にする．タルディコルガンはどの海からももっとも遠い町の一つである．内側の円板は大きい湖（カスピ海）と重なるが，どの海とも重ならない．

In[5]:=

X GeoGraphics[{EdgeForm[Gray], Brown, GeoDisk[p, minDist], GeoDisk[p, maxDist], AbsolutePointSize[5], Red, Point[p]}]

Out[5]=