- #1
neoromeo
- 2
- 0
Homework Statement
I am trying to construct a Mathematica notebook that will be able to import sound in the form of a .wmv file and then create the frequency spectrum for a given time interval.
Homework Equations
I managed to complete this part, though I am trying to figure out:
a) How could I make a filter to cut off certain frequencies and then,
b) using the Inverse Fourier transform to rebuild the signal.
The Attempt at a Solution
The following code does the import and frequency analysis job.
Clear All
file = "C:\\SOUND\\adriana.wav";
data = Flatten@Import[file, "Data"];
Import[file, "Options"]
snd = Import[file, "Sound"]
Length[data]
SetOptions[ListLinePlot, ImageSize -> {500, 150}, AspectRatio -> 0.25,
PlotRange -> All];
SetOptions[ListPlot, ImageSize -> {500, 150}, AspectRatio -> 0.25,
PlotRange -> All];
ListLinePlot[data[[1 ;; 4820100 ;; 100]]]
ListLinePlot[Abs[Fourier[data[[500000 ;; 500000 + 88200]]]]]
ListLinePlot[Abs[Fourier[data[[200000 ;; 600000]]]][[1 ;; 600]]]
Thanks in advance :)