从数据到网格

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

PolyhedronData.

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