Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Sample Data: Shapley Supercluster Galaxies

Source Notebook

Locations of Shapley supercluster galaxies annotated with magnitude, velocity (in km/s), and error marks

Details

Locations of Shapley supercluster galaxies in a polygonal observation region bounded by the Rectangle[{192.802, -37.7551}, {216.262, -27.4066}] degrees, annotated with magnitude, velocity (in km/s), and error marks.

Examples

Basic Examples (2) 

Retrieve the data:

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

Summary of the spatial point data:

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

Visualizations (3) 

Plot the spatial point data:

In[3]:=
ListPlot[ResourceData[\!\(\* TagBox["\"\<Sample Data: Shapley Supercluster Galaxies\>\"", #& , BoxID -> "ResourceTag-Sample Data: Shapley Supercluster Galaxies-Input", AutoDelete->True]\), "Data"]]
Out[3]=

Visualize the points with magnitude annotations:

In[4]:=
PointValuePlot[ResourceData[\!\(\* TagBox["\"\<Sample Data: Shapley Supercluster Galaxies\>\"", #& , BoxID -> "ResourceTag-Sample Data: Shapley Supercluster Galaxies-Input", AutoDelete->True]\), "Data"], {1 -> "Color", 2 -> None, 3 -> None}, ColorFunction -> "TemperatureMap", Background -> Black, PlotLegends -> Automatic]
Out[4]=

Visualize the smooth point density of the data:

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

Analysis (3) 

Compute probability of finding a point within given radius of an existing point - NearestNeighborG is the CDF of the nearest neighbor distribution:

In[7]:=
nnG = NearestNeighborG[ResourceData[\!\(\* TagBox["\"\<Sample Data: Shapley Supercluster Galaxies\>\"", #& , BoxID -> "ResourceTag-Sample Data: Shapley Supercluster Galaxies-Input", AutoDelete->True]\), "Data"]]
Out[7]=
In[8]:=
maxR = nnG["MaxRadius"]
Out[8]=
In[9]:=
DiscretePlot[nnG[r], {r, maxR/100, maxR, maxR/100}, AxesLabel -> {"radius", "probability"}]
Out[9]=

Mean distance between a typical point and its nearest neighbor (for positive support distribution can be approximated via a Riemann sum of 1-CDF):

In[10]:=
step = maxR/100; partition = Table[{k, k + step}, {k, 0, maxR, step}]; values = nnG[Mean /@ partition];
In[11]:=
Total[(1 - values)*step]
Out[11]=

Test for complete spacial randomness:

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

Gosia Konwerska, "Sample Data: Shapley Supercluster Galaxies" from the Wolfram Data Repository (2021)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • Drinkwater, M.J., Parker, Q.A., Proust, D., Slezak, E. and Quintana, H. (2004) The large scale distribution of galaxies in the Shapley Supercluster. Publications of the Astronomical Society of Australia 21, 89-96. DOI 10.1071/AS03057

      M.J. Drinkwater (Department of Physics, University of Queensland)

Publisher Information

  • Prepared for the Wolfram Data Repository By: Gosia Konwerska
    (Wolfram Research, Inc.)
  • Publisher of Record: Gosia Konwerska