Find the Seas Nearest a Given Location 

Find the nearest seas to Taldikorgan, Kazakhstan.

In[1]:=

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

In[2]:=

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

Out[2]=

Compute distances to the nearest seas from that location.

In[3]:=

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

Out[3]=

In[4]:=

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

Out[4]=

Map the distances to the seas. Taldikorgan is one of the furthest cities from any sea. The inner disk overlaps a big lake (“Caspian Sea”), but not any marine sea.

In[5]:=

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

Out[5]=