Extract the Beat Frequency of a Sound

Get a training set:

In[1]:=

trainingset=MapThread[Play[Sin[#1*t]+Sin[(#1+#2)*t],{t,0,1}]#2&,{RandomReal[{1500,1800},70],RandomReal[50,70]}];

Train a predictor that predicts the beat frequency of a sound:

In[2]:=

p=Predict[trainingset]

Out[2]=

PredictorFunction



Input type: Audio

Method: NearestNeighbors

Data not in notebook. Store now



Predict the beat frequencies of some test examples:

In[3]:=

testset=

12.51,

30.08;

In[4]:=

p[testset〚All,1〛]

Out[4]=

{14.9418,7.801}

Related Symbols