Wolfram Research

Sample 3D Model: Fan Disk

Source Notebook

3D model of a fan disk component

Details

The Fan Disk is a model of a fan disk component of a gas turbine engine. The model was first published as a test model in the paper “Piecewise Smooth Surface Reconstruction,” in the proceedings of the SIGGRAPH 1994 annual conference series. The data for the model was provided by the aerospace manufacturer Pratt & Whitney.
Additional content elements include:
“Description"description
“LongDescription"long description
“Name"English name
StandardName"standard English name
"BoundaryMeshRegion"boundary mesh region representation
"MeshRegion"mesh region representation
"Region"region representation
"PolygonCount"number of polygons
"VertexCount"number of vertices
"ConnectedComponents"number of connected components
"BoundingBox"bounding box
"Summary"summary information

Examples

Basic Examples (2) 

Retrieve the model:

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

Summary properties:

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

Scope & Additional Elements (1) 

Find the minimum volume ball that encapsulates the mesh:

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

Alec Shedelbower, "Sample 3D Model: Fan Disk" from the Wolfram Data Repository (2022)  

Data Resource History

Source Metadata

Data Downloads

Publisher Information