Sample 3D Model: Distorted Loop

Source Notebook

3D model of a distorted loop

Details

Additional content elements include:
"BoundaryMeshRegion"boundary mesh region representation
"BoundingBox"bounding box
"ConnectedComponents"number of connected components
"Graphics3D"Graphics3D representation
"MeshRegion"mesh region representation
"PolygonCount"number of polygons
"Region"region representation
"Summary"summary information
"VertexCount"number of vertices
“Description"description
“LongDescription"long description
“Name"English name
StandardName"standard English name

Examples

Basic Examples (2) 

Retrieve the model:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Distorted Loop\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Distorted Loop-Input",
AutoDelete->True]\)]
Out[1]=

Summary properties:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Distorted Loop\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Distorted Loop-Input",
AutoDelete->True]\), "Summary"]
Out[2]=

Scope & Additional Elements (2) 

Find the minimum-volume ball that encapsulates the mesh:

In[3]:=
bound = BoundingRegion[ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Distorted Loop\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Distorted Loop-Input",
AutoDelete->True]\)], "MinBall"]
Out[3]=

Visualize the mesh together with its bounding ball:

In[4]:=
Show[{ResourceData[\!\(\*
TagBox["\"\<Sample 3D Model: Distorted Loop\>\"",
#& ,
BoxID -> "ResourceTag-Sample 3D Model: Distorted Loop-Input",
AutoDelete->True]\)], Graphics3D[{Opacity[0.5], bound}]}]
Out[4]=

Wolfram Research, "Sample 3D Model: Distorted Loop" from the Wolfram Data Repository (2026)  

Data Resource History

Source Metadata

See Also

Data Downloads

Publisher Information