Localize dados de elevação em um mapa de relevo 

Obtenha um reticulado de elevações perto da cidade de Chongqing, China.

In[1]:=

X Entity["City", {"Chongqing", "Chongqing", "China"}]["Position"]

Out[1]=

In[2]:=

X points = GeoPosition[Flatten[ Table[{29.57 + i/5, 106.58 - j/5}, {i, 1, 20}, {j, 1, 20}], 1]];

In[3]:=

X data = Thread[Thread[points] -> QuantityMagnitude[ GeoElevationData[points, UnitSystem -> "Metric"]]];

Marque cada elevação com um ponto codificado por cor.

In[4]:=

X GeoRegionValuePlot[data, GeoBackground -> GeoStyling["ReliefMap"], GeoLabels -> (#1 &), ColorFunction -> ColorData["SolarColors"]]

In[5]:=

X -Graphics-