Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Sample Video: Cardiomyocytes Contraction

Source Notebook

Video of cardiomyocytes contracting repeatedly for several seconds

Examples

Basic Examples

Retrieve the video:

In[1]:=
video = ResourceData["Sample Video: Cardiomyocytes Contraction"]
Out[1]=

Show video information:

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

Show some of the video frames:

In[3]:=
VideoFrameList[video, 3]
Out[3]=

Scope & Additional Elements

See the file path containing the video file:

In[4]:=
dir = ResourceData["Sample Video: Cardiomyocytes Contraction", "Directory"]
Out[4]=

Find the video file:

In[5]:=
FileNames["*.mp4", dir, Infinity]
Out[5]=

Processing & Analysis

Measure total pixel displacement from one video frame to another:

In[6]:=
video = ResourceData["Sample Video: Cardiomyocytes Contraction"];
In[7]:=
tseries = VideoMapTimeSeries[ Total[Map[Norm, ImageDisplacements[#Image][[1]], {2}], 2] &, video, 2, 1]
Out[7]=
In[8]:=
DateListPlot[tseries]
Out[8]=

Detect and highlight peaks of the signal:

In[9]:=
DateListPlot[{tseries, FindPeaks[tseries, 4]}, Sequence[ Joined -> {True, False}, PlotStyle -> {Automatic, Directive[ PointSize[0.02], Red]}, ImageSize -> Medium]]
Out[9]=

Wolfram Research, "Sample Video: Cardiomyocytes Contraction" from the Wolfram Data Repository (2021)  

License Information

Free for commercial use, no attribution required, https://pixabay.com/service/license/

Data Resource History

  • Date Created:

Source Metadata

  • Title: Cardiomyocytes Contraction
  • Creator: Christian Zuppinger
  • Publisher: Pixabay
  • Date: 15 August 2018
  • Citation: https://pixabay.com/videos/cardiomyocytes-contraction-17794/

Publisher Information

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