Графики высоты над уровнем моря с единицами измерения: Новое в системе Wolfram Language 11

Графики высоты над уровнем моря с единицами измерения

Данные о высоте над уровнем моря для граничащих с континентальными США регионов выдаётся в метрах, колеблясь от 5700 метров на глубине океана до 3700 метров в Скалистых горах.

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

Графически изобразите высоту над уровнем моря в виде рельефной карты с автоматически обработанными единицами измерения.

In[3]:=

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

Out[3]=

Графически изобразите данные в виде заполненной трёхмерной поверхности.

In[4]:=

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

Out[4]=