Encuentre los mares más cercanos a un lugar determinado 

Encuentre los mares más cercanos a Taldikorgan, Kazakhstan.

In[1]:=

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

In[2]:=

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

Out[2]=

Calcule distancias a los mares más cercanos desde esa ubicación.

In[3]:=

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

Out[3]=

In[4]:=

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

Out[4]=

Mapee las distancias a los mares. Taldikorgan es una de las ciudades más lejanas desde cualquier mar. El disco interior se superpone a un gran lago ("Mar Caspio"), pero no cualquier mar marino.

In[5]:=

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

Out[5]=