Modèles d'élévation géographique 3D

Construisez un modèle d'élévation géographique d'un pays.

In[1]:=

country = GeoElevationData[Entity["Country", "Italy"], Automatic, "Region"]

Out[1]=

Rééchelonnez dans le sens vertical pour agrandir le profil d'élévation.

In[2]:=

{xrange, yrange, {zmin, zmax}} = RegionBounds[country]

Out[2]=

In[3]:=

Show[RegionResize[country, {xrange, yrange, {0, 300 zmax}}], PlotRange -> {xrange, yrange, {265 zmax, 300 zmax}}]

Out[3]=