Построение сетки на основе данных: Новое в системе Wolfram Language 11

Построение сетки на основе данных

Версия 11 обеспечивает прямой доступ к большому объему заготовленных 3D геометрических моделей, таких как многогранники, узлы, анатомические структуры и геометрические характеристики, специально разработанные для Wolfram Language.

Данные для полигедронов: PolyhedronData.

код на языке Wolfram Language целиком

In[1]:=

showMeshGrid[f_, names_] := 
 Grid[{Framed[
      Show[ImagePad[
        Rasterize[
         If[f === GeoElevationData, f[#, Automatic, "Region"], 
          f[#, "Region"]], "Image", ImageSize -> {100, 100}, 
         Background -> None], 10, RGBColor[1, 1, 1, 0]], 
       PlotLabel -> format[#], Method -> {"ShrinkWrap" -> False}, 
       ImageSize -> 100], RoundingRadius -> 10, 
      Background -> Lighter[Gray, 0.9], 
      FrameStyle -> GrayLevel[0.5]] & /@ names}]
format[GeoDisk[s_, ___]] := format[s]
format[e_Entity] := First[StringSplit[CommonName[e], ","]]
format[s_] := s

In[2]:=

showMeshGrid[PolyhedronData, {"Dodecahedron", "SnubCube", 
  "Echidnahedron", "CumulatedCube"}]

Out[2]=

Данные для узлов: KnotData.

In[3]:=

showMeshGrid[KnotData, {"Trefoil", "FigureEight", "SolomonSeal", 
  "Stevedore"}]

Out[3]=

Данные для химических соединений: ChemicalData.

In[4]:=

showMeshGrid[ChemicalData, {"Water", "Caffeine", "SulfuricAcid", 
  "DTyrosine"}]

Out[4]=

Данные для анатомических объектов: AnatomyData.

In[5]:=

showMeshGrid[AnatomyData, {"Liver", "Eye", "LeftHand", "Skull"}]

Out[5]=

Данные для гео объектов: GeoElevationData.

In[6]:=

showMeshGrid[GeoElevationData, {Entity["Mountain", "MountEverest"], 
  Entity["Country", "Switzerland"], 
  Entity["AdministrativeDivision", {"Hawaii", "UnitedStates"}], 
  GeoDisk[Entity["UnderseaFeature", "MarianaTrench"], 
   Quantity[30, "Miles"]]}]

Out[6]=