从数据到网格: Wolfram语言 11 的新功能

从数据到网格

版本 11 专门为 Wolfram 语言组织和创建了大量三维几何模型，例如多面体、结、解剖结构和几何特征，以供直接访问.

显示完整的 Wolfram 语言输入

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

Wolfram 语言™

从数据到网格

相关范例