# Processing and visualizing data to show Doppler shift [closed]

I want to write a program which can read a .wav file and manipulate the data so I can observe the Doppler effect in a plot. My problem is I can't figure out a way to isolate the frequency x time.

This is my program so far.

data = Import[lamaior, "Data"];

ListLinePlot[data[[1, 1 ;; 300]],
AxesLabel -> {"tempo(ms)", "amplitude"}]
ListLinePlot[data,
AxesLabel -> {"tempo(ms)", "amplitude"},
PlotRange -> All]

• are you aware of that. So far I remember, it's a extract from a WTC conference gigen by Marcus Van Almsick. – andre314 Oct 26 '18 at 19:15
• I don't remember wich WTC Conference it was, and there are many. If you are not aware and if you are interested, I can try to look for it. – andre314 Oct 26 '18 at 19:26
• How about Spectrogram... presumably the Doppler shift will appear as a change in the instantaneous frequency of the signal. – bill s Oct 26 '18 at 20:05
• @andre please! I would like to take a look. – Hugo David Costa Pereira Oct 27 '18 at 3:18
• Link to Marcus Van Alsick's conference about Doppler effect measurments (among other things). Look at time =12.6seconds – andre314 Oct 27 '18 at 9:04