음성 압축기의 구축

음성 압축기를 구축합니다.

In[1]:=

a = Import["ExampleData/rule30.wav"]

Out[1]=

In[2]:=

AudioPlot[a, ImageSize -> Medium]

Out[2]=

임계값 0.02에서 신호의 제곱 평균 제곱근 (RMS)의 진폭을 계산합니다.

In[3]:=

amplitude = AudioBlockMap[Max[.02, Sqrt@Mean[#^2]] &, a, {.01, .005}]

Out[3]=

신호의 다이나믹 레인지를 압축합니다.

In[4]:=

AudioNormalize[a/AudioGenerator[amplitude]]

Out[4]=

In[5]:=

AudioNormalize[a/AudioGenerator[amplitude]]; AudioPlot[%, ImageSize -> Medium]

Out[5]=