Gitternetze aus Daten

Version 11 bietet die direkte Nutzung einer breiten Palette kuratierter dreidimensionaler geometrischer Modelle wie Polyeder, Knoten, anatomische Strukturen und geometrische Eigenschaften, eigens angelegt und organisiert für die Wolfram Language.

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