Trace datos de elevación en un mapa de relieve 

Obtenga una cuadrícula de elevaciones cerca de la ciudad 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 elevación con un punto con código de color.

In[4]:=

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

In[5]:=

X -Graphics-