$\mathrm{with}\left(\mathrm{plots}\right)\:$

$\mathrm{filename}≔\mathrm{FileTools}:-\mathrm{JoinPath}\left(\left[\mathrm{kernelopts}\left(\mathrm{datadir}\right)\,''audio''\,''maplesim.wav''\right]\right)$

$\mathrm{filename}:=''C:\backslash Program\; Files\backslash Maple\; 18\backslash data\backslash audio\backslash maplesim.wav''$

$\mathrm{data}:=\mathrm{AudioTools}:-\mathrm{Read}\left(\mathrm{filename}\right)$

$\mathrm{samplingRate}:={\mathrm{attributes}\left(\mathrm{data}\right)}_1$$\mathit{ }$

$\mathrm{samplingRate}:=11025$

$\mathrm{len}:=\mathrm{evalf}\left(\frac{\mathrm{numelems}\left(\mathrm{data}\right)}{\mathrm{samplingRate}}\right)$

$\mathrm{len}:=0.7462131519$

$\mathrm{samps}:=256\:$

$\mathrm{nTimes}:=\mathrm{floor}\left(\frac{2\mathrm{numelems}\left(\mathrm{data}\right)}{\mathrm{samps}}\right)-1$

$\mathrm{nTimes}:=63$

$\mathrm{sample}≔\mathrm{Matrix}\left(\mathrm{samps}\,\mathrm{nTimes}\, \left(i\,j\right)\to \mathrm{data}\left[i\+\left(j-1\right)\*\mathrm{samps}\/2\right]\,\mathrm{datatype}\=\mathrm{float}\left[8\right]\right)\;$

$a≔⟨⟨\mathrm{seq}\left(\mathrm{HannWindow}\left(\mathrm{sample}\left[..\,i\right]\right)\,i\=1..\mathrm{nTimes}\right)⟩⟩\:$

$\mathrm{FFTa}≔⟨⟨\mathrm{seq}\left(\mathrm{FFT}\left(a\left[i\,..\right]\right)\,i\=1..\mathrm{nTimes}\right)⟩⟩\:$

$\mathrm{spectra}≔⟨⟨\mathrm{seq}\left(\mathrm{sqrt}~\left(\mathrm{PowerSpectrum}\left(\mathrm{FFTa}\left[i\,..\right]\right)\right)\,i\=1..\mathrm{nTimes}\right)⟩⟩\:$

$\mathrm{dB}:=x\→20\mathrm{log10}\left(x\right)\:$

$\mathrm{spectra}:=\mathrm{map}\left(\mathrm{dB}\,\mathrm{spectra}\right)\:$

$\mathrm{sim}:=\mathrm{LinearAlgebra}:-\mathrm{SubMatrix}\left(\mathrm{\ℜ}\left(\mathrm{spectra}\right)\,1..\mathrm{nTimes}\,1..\frac{\mathrm{samps}}{2}\+1\right)\:$

$\mathrm{nFreqs}:=\mathrm{LinearAlgebra}:-\mathrm{ColumnDimension}\left(\mathrm{sim}\right)$

$\mathrm{nFreqs}:=129$

$\frac{\mathrm{samplingRate}}{2.\mathrm{nFreqs}}$

$42.73255814$

$\mathrm{minSim}:=\min \left(\mathrm{sim}\right)$

$\mathrm{minSim}:=-111.188885238739$

$\mathrm{maxSim}:=\max \left(\mathrm{sim}\right)$

$\mathrm{maxSim}:=4.43801796851939$

$\mathrm{scale}:=i\→\frac{\left(i-\mathrm{minSim}\right)\cdot 255}{\mathrm{maxSim}-\mathrm{minSim}}\:$

$\mathrm{simScaled}≔\mathrm{scale}~\left(\mathrm{sim}\right)\;$

$\mathrm{commonPlotOpts1}≔\mathrm{labelfont}\=\left[\mathrm{Helvetica}\right]\,\mathrm{labeldirections}\=\left[\mathrm{horizontal}\,\mathrm{vertical}\right]\:$

$\mathrm{p1}:=\mathrm{listdensityplot}\left(-\mathrm{simScaled}\,\mathrm{style}\=\mathrm{patchnogrid}\,\mathrm{smooth}\=\mathrm{true}\,\mathrm{tickmarks}\=\left[\left[\right]\,\left[\mathrm{seq}\left(i\=\frac{\mathrm{round}\left(\frac{\mathrm{samplingRate}i\cdot 10}{2000.\mathrm{nFreqs}}\right)}{10.}\,i\=0..\mathrm{nFreqs}\,25\right)\right]\right]\,\mathrm{labels}\=\left[''''\,''Frequency\; (kHz)''\right]\,\mathrm{commonPlotOpts1}\right)\:$

$\mathrm{p2}:=\mathrm{listplot}\left(\left[\mathrm{seq}\left(\left[\frac{i}{\mathrm{samplingRate}}\,{\mathrm{data}}_i\right]\,i\=1..\mathrm{numelems}\left(\mathrm{data}\right)\right)\right]\,\mathrm{thickness}\=0\,\mathrm{gridlines}\,\mathrm{axes}\=\mathrm{boxed}\,\mathrm{labels}\=\left[''Time\; (s)''\,''Amplitude''\right]\,\mathrm{commonPlotOpts1}\right)\:$

$\mathrm{display}\left(\mathrm{Array}\left(⟨⟨\mathrm{p1}\,\mathrm{p2}⟩⟩\right)\,\mathrm{aligncolumns}\=\left[1\right]\right)$

$\mathrm{filename2}≔\mathrm{FileTools}:-\mathrm{JoinPath}\left(\left[\mathrm{kernelopts}\left(\mathrm{datadir}\right)\,''audio''\,''MapleSimMono11025.wav''\right]\right)$

$\mathrm{filename2}:=''C:\backslash Program\; Files\backslash Maple\; 18\backslash data\backslash audio\backslash MapleSimMono11025.wav''$

$\mathrm{originalSpeech}:=\mathrm{AudioTools}:-\mathrm{Read}\left(\mathrm{filename2}\right)$

$\mathrm{commonPlotOpts2}≔\mathrm{titlefont}\=\left[\mathrm{Helvetica}\,12\right]\,\mathrm{labelfont}\=\left[\mathrm{Helvetica}\right]\,\mathrm{labeldirections}\=\left[\mathrm{horizontal}\,\mathrm{vertical}\right]\,\mathrm{axis}\=\left[\mathrm{gridlines}\=\left[\mathrm{color}\=''SteelBlue''\right]\right]\:$

$\mathrm{samplingRate}≔\mathrm{attributes}\left(\mathrm{originalSpeech}\right)\left[1\right]$

$\mathrm{samplingRate}:=11025$

$\mathrm{duration}:=\mathrm{evalf}\left(\mathrm{AudioTools}:-\mathrm{Duration}\left(\mathrm{originalSpeech}\right)\right)$

$\mathrm{duration}:=4.504671202$

$\mathrm{p1}:=\mathrm{plots}:-\mathrm{listplot}\left(\left[\mathrm{seq}\left(\left[\frac{i}{\mathrm{samplingRate}}\,{\mathrm{originalSpeech}}_i\right]\,i\=1..\mathrm{numelems}\left(\mathrm{originalSpeech}\right)\right)\right]\,\mathrm{thickness}\=0\,\mathrm{gridlines}\,\mathrm{axes}\=\mathrm{boxed}\,\mathrm{title}\=''Original\; Speech''\,\mathrm{labels}\=\left[''Time\; (s)''\,\mathrm{Waveform}\right]\,\mathrm{commonPlotOpts2}\right)\:$$$

$\mathrm{plots}:-\mathrm{display}\left(\mathrm{p1}\right)$

$\mathrm{fq}:=\mathrm{FFT}\left(\mathrm{originalSpeech}\left[1..2^{15}\right]\right)\:$

$\mathrm{psq}:=\mathrm{PowerSpectrum}\left(\mathrm{fq}\right)\:$

$\mathrm{ps1}:=\mathrm{plots}:-\mathrm{pointplot}\left(\left[\mathrm{seq}\left(\left[\frac{i\mathrm{samplingRate}}{2^{15}}\,{\mathrm{psq}}_i\right]\,i\=1..\frac{2^{15}}{2}\right)\right]\,\mathrm{thickness}\=0\,\mathrm{color}\=\mathrm{black}\,\mathrm{gridlines}\,\mathrm{connect}\=\mathrm{true}\,\mathrm{title}\=''Power\; Spectrum\; of\; Original\; Speech''\, \mathrm{labels}\=\left[''Frequency\; (Hz)''\,\mathrm{Power}\right]\,\mathrm{view}\=\left[100..2000\,0..1.6\right]\,{\mathrm{axis}}_1\=\left[\mathrm{mode}\=\log \right]\,\mathrm{commonPlotOpts2}\right)\:$

$\mathrm{plots}:-\mathrm{display}\left(\mathrm{ps1}\right)$