In[]:=
vowelchunk=
Out[]=
In[]:=
AudioData[vowelchunk]//ListLinePlot
Out[]=
In[]:=
ListLinePlot[Log[Abs[Fourier[AudioData[vowelchunk]]]]]
Out[]=
In[]:=
shortlist=Flatten[Log[Abs[Fourier[AudioData[vowelchunk]]]]][[1;;128]];
In[]:=
Length@shortlist
Out[]=
128
In[]:=
ListLinePlot[shortlist]
Out[]=
In[]:=
dwd=DiscreteWaveletTransform[shortlist,MeyerWavelet[],4]
Out[]=
DiscreteWaveletData
In[]:=
WaveletListPlot[dwd]
Out[]=
In[]:=
WaveletListPlot[dwd,PlotLayout"CommonYAxis"]
Out[]=
In[]:=
dwd["TreeView"]
Out[]=
In[]:=
dwd[{1}]
Out[]=
{{1}{0.570101,-0.997514,-0.0115234,0.751024,-0.0642427,0.248848,-1.18541,0.514089,-0.297057,-0.207227,0.768414,-1.79336,1.00102,0.558862,-0.980132,0.68099,-0.768369,0.394516,0.727898,-2.0086,0.212672,0.477158,-0.6268,0.772732,-1.54035,0.841972,0.835208,-1.08259,0.433889,-0.326229,-0.277602,0.698541,-1.29487,0.164353,0.737547,-1.84748,-0.443214,-0.589867,-0.297063,-0.21965,-1.78313,-0.616258,-0.0721762,-0.533642,-0.343361,-0.421432,0.92418,0.118815,-1.29866,-1.03125,0.313552,-0.019773,0.845536,-0.52021,-0.123873,0.616505,0.180694,-0.0899796,0.414951,-0.351938,-0.817764,-0.111872,-0.421101,0.0696975,0.570101,-0.997514,-0.0115234,0.751024,-0.0642427,0.248848,-1.18541,0.514089,-0.297057,-0.207227}}
In[]:=
dwd[{0,0,0,0}]
Out[]=
{{0,0,0,0}{-17.0949,-16.7369,-16.0902,-17.1927,-16.0749,-15.9629,-17.0647,-15.8865,-17.6037,-12.887,-10.6607,-13.5954,-22.7255,-23.269,-20.9661,-22.7963,-21.0968,-15.616,-17.2009,-16.1279,-17.3342,-15.1612,-17.1085,-16.1155,-17.1908,-15.7505}}
In[]:=
inv=InverseWaveletTransform[dwd,Automatic,{0,0,0,0}];
In[]:=
ListLinePlot[{shortlist,inv}]
Out[]=