找出距离给定位置最近的海洋 

The radius is proportional to the square root of the broadcast power.

找出离哈萨克斯坦 Taldikorgan 市最近的海洋.

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]=

绘制到海洋的距离图. Taldikorgan 市是距离任何海洋最远的地点之一. 圆盘的内部与一个巨大湖泊（黑海）重叠，但没有任何海洋.

In[5]:=

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

Out[5]=