Detecção de frequência fundamental
Calcule a frequência fundamental de uma gravação.
In[1]:=
![Click for copyable input](assets.pt-br/fundamental-frequency-detection/In_31.png)
a = ExampleData[{"Audio", "PianoScale"}, "Audio"]
In[2]:=
![Click for copyable input](assets.pt-br/fundamental-frequency-detection/In_32.png)
f0 = AudioLocalMeasurements[a, "FundamentalFrequency"];
ListLinePlot[f0, ImageSize -> Medium]
Out[2]=
![](assets.pt-br/fundamental-frequency-detection/O_13.png)
Use o resultado como uma função ColorFunction de AudioPlot.
In[3]:=
![Click for copyable input](assets.pt-br/fundamental-frequency-detection/In_33.png)
f0 = Rescale[TimeSeries[DeleteMissing[f0 // Normal, 1, 2]]]; Quiet@
AudioPlot[a,
ColorFunction -> Function[{x, y}, ColorData["SolarColors"][f0[x]]],
ImageSize -> Medium]
Out[3]=
![](assets.pt-br/fundamental-frequency-detection/O_14.png)