Faça um gráfico de elevações com unidades
Dados de elevação da região que contorna os Estados Unidos é obtida em metros, variando de uma profundidade de 5.700 no oceano a uma altura de 3.700 metros nas Montanhas Rochosas.
In[1]:=
us = GeoElevationData[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "lower 48", Typeset`boxes$$ =
TemplateBox[{"\"Continental US states\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"AdministrativeDivision\"", ",",
"\"ContinentalUSStates\""}], "]"}],
"\"EntityClass[\\\"AdministrativeDivision\\\", \
\\\"ContinentalUSStates\\\"]\"", "\"administrative divisions\""},
"EntityClass"], Typeset`allassumptions$$ = {},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.741402`6.321598746740357, "Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{323., {7., 15.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\), UnitSystem -> "Meters"]
Out[1]=
In[2]:=
MinMax[us]
Out[2]=
Faça um gráfico da elevação como um mapa de relevo, com as unidades processadas automaticamente.
In[3]:=
ReliefPlot[us, DataReversed -> True, ImageSize -> 500,
ColorFunctionScaling -> False,
ColorFunction -> ColorData["HypsometricTints"],
PlotLegends -> Placed[Automatic, Below]]
Out[3]=
Faça uma representação gráfica dos dados como uma superfície 3D preenchida.
In[4]:=
ListPlot3D[Reverse[us], ImageSize -> 500,
ColorFunctionScaling -> False,
ColorFunction -> ColorData["HypsometricTints"],
BoxRatios -> {2, 1, 1/2}, PlotTheme -> {"FilledSurface", "Minimal"}]
Out[4]=