3DのGeoElevationモデル
ある国の地理標高モデルを構築する．
In[1]:=
country =
GeoElevationData[Entity["Country", "Italy"], Automatic, "Region"]Out[1]=
標高の違いがはっきり見えるように，垂直方向にスケールし直す．
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]=
