Detección de frecuencia fundamental

Calcule la frecuencia fundamental de una grabación.

In[1]:=

a = ExampleData[{"Audio", "PianoScale"}, "Audio"]

Out[1]=

In[2]:=

f0 = AudioLocalMeasurements[a, "FundamentalFrequency"]; ListLinePlot[f0, ImageSize -> Medium]

Out[2]=

Use el resultado como una función ColorFunction de AudioPlot.

In[3]:=

f0 = Rescale[TimeSeries[DeleteMissing[f0 // Normal, 1, 2]]]; Quiet@ AudioPlot[a, ColorFunction -> Function[{x, y}, ColorData["SolarColors"][f0[x]]], ImageSize -> Medium]

Out[3]=