Язык Wolfram Language

Визуализация: метки, масштабы, исключения

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

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

In[1]:=
Click for copyable input
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]:=
Click for copyable input
MinMax[us]
Out[2]=

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

In[3]:=
Click for copyable input
ReliefPlot[us, DataReversed -> True, ImageSize -> 500, ColorFunctionScaling -> False, ColorFunction -> ColorData["HypsometricTints"], PlotLegends -> Placed[Automatic, Below]]
Out[3]=

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

In[4]:=
Click for copyable input
ListPlot3D[Reverse[us], ImageSize -> 500, ColorFunctionScaling -> False, ColorFunction -> ColorData["HypsometricTints"], BoxRatios -> {2, 1, 1/2}, PlotTheme -> {"FilledSurface", "Minimal"}]
Out[4]=

Родственные примеры

de en es fr ja ko pt-br zh