Grafique elevaciones con unidades: Nuevo en Wolfram Language 11

Grafique elevaciones con unidades

Los datos de elevación para una región límite de los EE.UU. continentales son regresados en metros, que van desde una profundidad de 5.700 metros en el océano, hasta una altura de 3.700 metros en las Montañas Rocallosas.

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

Grafique la elevación como un mapa de relieve, con las unidades procesadas de forma automática.

In[3]:=

ReliefPlot[us, DataReversed -> True, ImageSize -> 500, 
 ColorFunctionScaling -> False, 
 ColorFunction -> ColorData["HypsometricTints"], 
 PlotLegends -> Placed[Automatic, Below]]

Out[3]=

Grafique los datos como una superficie en 3D rellena.

In[4]:=

ListPlot3D[Reverse[us], ImageSize -> 500, 
 ColorFunctionScaling -> False, 
 ColorFunction -> ColorData["HypsometricTints"], 
 BoxRatios -> {2, 1, 1/2}, PlotTheme -> {"FilledSurface", "Minimal"}]

Out[4]=