Wolfram Research

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

Source Metadata

Publisher Information