Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Videos of the 2017 Solar Eclipse

Source Notebook

Videos captured by Stephen Wolfram at the 2017 total solar eclipse

Details

These videos were taken from a location near Jackson, Wyoming; the specific geo position is given by the "Location" element in this resource object.
The longer video was captured on an iPad Mini 4; the shorter one was a timelapse taken on an iPhone 7 Plus. The videos suffer from artifacts associated with automatic exposure control on the iPad and iPhone.
The start time for the longer video is given by the "StartTime" element in this resource object.
There is no audio track in either video.

Examples

Basic Examples (2) 

In[1]:=
ResourceData[\!\(\* TagBox["\"\<Videos of the 2017 Solar Eclipse\>\"", #& , BoxID -> "ResourceTag-Videos of the 2017 Solar Eclipse-Input", AutoDelete->True]\)]
Out[1]=

Query information about the video:

In[2]:=
Information[%]
Out[2]=

Retrieve the location and start time of the recording:

In[3]:=
{ResourceData[\!\(\* TagBox["\"\<Videos of the 2017 Solar Eclipse\>\"", #& , BoxID -> "ResourceTag-Videos of the 2017 Solar Eclipse-Input", AutoDelete->True]\), "Location"], ResourceData[\!\(\* TagBox["\"\<Videos of the 2017 Solar Eclipse\>\"", #& , BoxID -> "ResourceTag-Videos of the 2017 Solar Eclipse-Input", AutoDelete->True]\), "StartTime"]}
Out[3]=

Visualizations (2) 

Extract 16 frames from the timelapse video and make a collage visualizing the timeline of the eclipse:

In[4]:=
ImageCollage@VideoFrameList[ResourceData[\!\(\* TagBox["\"\<Videos of the 2017 Solar Eclipse\>\"", #& , BoxID -> "ResourceTag-Videos of the 2017 Solar Eclipse-Input", AutoDelete->True]\), "ShortVideo"], 16]

Plot the umbra Polygon for the eclipse at the location of the video:

In[5]:=
GeoGraphics[{SolarEclipse[ DateObject[{2017, 8}, "Month"], {"UmbraPolygon", ResourceData[\!\(\* TagBox["\"\<Videos of the 2017 Solar Eclipse\>\"", #& , BoxID -> "ResourceTag-Videos of the 2017 Solar Eclipse-Input", AutoDelete->True]\), "StartTime"] + Quantity[5, "Minutes"]}], Style[Point[ResourceData[\!\(\* TagBox["\"\<Videos of the 2017 Solar Eclipse\>\"", #& , BoxID -> "ResourceTag-Videos of the 2017 Solar Eclipse-Input", AutoDelete->True]\), "Location"]], PointSize[.02], Red]}, GeoBackground -> "ReliefMap", GeoRange -> Quantity[50, "Miles"]]
Out[5]=

Wolfram Research, "Videos of the 2017 Solar Eclipse" from the Wolfram Data Repository (2024)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation: Source, reference or citation information

Publisher Information

  • Prepared for the Wolfram Data Repository By: Stephen Wolfram
  • Publisher of Record: Wolfram Research