I would like to measure how fast my 6-bladed fidget spinner spins. To do so, after giving it a hard spin, I gently touch the spinner with a wooden stirring stick to create a buzzing sound which usually last for a minute.
I have recorded and plotted the sound it generates:
How can I automatically generate a list of peak times for the above data? My final goal is to plot revolutions per second as a function of time to show spin decay.
To hear the sound in your Mathematica notebook, run the following code:
Sound[SampledSoundList[ Flatten@ImageData@Import["https://i.stack.imgur.com/qHpp6.png"], 22050]]
This will download the following image, turn it into an array, and finally, convert it to a sound object.