B R A D V A R E Y --- O W N G O A L

Interval Analysis - Short Time Fourier

Data

Code

In[]:=
ClearAll[performAnalysis];​​performAnalysis[partitionLength_]:=Block[{stf,plotOptions,plotLabel},​​plotLabel="Partition Length: "<>ToString[partitionLength];​​plotOptions={ImageSize400,AspectRatio1/3,PlotLabelplotLabel};​​stf=ShortTimeFourier[pwrs,partitionLength,Automatic,HannWindow];​​MatrixPlot[Transpose[SpectrogramArray[pwrs]],plotOptions]​​]

Run

In[]:=
partitionLengths={Automatic,30,60,90,120,150,180};​​ListLinePlot[pwrs]​​performAnalysis[#]&/@partitionLengths​​
Out[]=
500
1000
1500
2000
2500
50
100
150
200
250
300
Out[]=

,
,
,
,
,
,
