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]=