Wolfram Research

Sample Data: Bronze Gradient Filter

Source Notebook

Locations of bronze particles in a gradient filter annotated with radii (in millimeters) marks

Details

Locations of bronze particles centers, observed in a longitudinal plane section through a gradient sinter filter produced by sedimentation of bronze powder with varying grain diameter and subsequent sintering. The observation region is a 18mm by 7mm rectangle. The point annotations are radii of the particles given in mm.

Examples

Basic Examples (1) 

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"]
Out[1]=

Summary of the spatial point data:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"]["Summary"]
Out[2]=

Visualizations (1) 

Plot the spatial point data:

In[3]:=
ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"], AspectRatio -> 1, Frame -> True]
Out[3]=
In[4]:=
PointValuePlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"], PlotLegends -> Automatic]
Out[4]=

Analysis (2) 

Compute smooth point density:

In[5]:=
density = SmoothPointDensity[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"]]
Out[5]=
In[6]:=
Show[ContourPlot[density[{x, y}], {x, y} \[Element] ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"]["ObservationRegion"]], ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"]["Points"], PlotStyle -> Black]]
Out[6]=

Test for complete spatial randomness:

In[7]:=
SpatialRandomnessTest[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bronze Gradient Filter\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bronze Gradient Filter-Input",
AutoDelete->True]\), "Data"], {"PValue", "TestConclusion"}]
Out[7]=

Gosia Konwerska, "Sample Data: Bronze Gradient Filter" from the Wolfram Data Repository (2021)  

Data Resource History

Source Metadata

Publisher Information