audio - 如何从声音文件中提取包络？

Question

我需要提取 sound wave envelope来自 headless Linux 主机上批处理作业中的一组音频文件。

我认为这可以使用 Nyquist programming language 来实现，Lisp 的一个变体，特别嵌入了大胆中，专用于声音处理。但是，如果我对 Lisp 有一定的了解，那么我以前对 Nyquist 没有任何经验。

奈奎斯特中是否有一些原语可以直接实现？或者我如何编写一个简短的 Nyquist 程序来提取声音的包络？

我尝试使用 snd-avg功能。但它似乎并没有产生平滑的包络(截图中的上半部分):

(snd-avg
  (aref *track* 0)                 ; first sound
  (truncate (/ *sound-srate* 50))  ; 50 Hz to samples
  1 op-peak)                       ; follow peak values

Answer 1

我通过在 snd-avg 之后应用低通滤波器获得了不错的结果。为了消除楼梯涟漪:

(lp 
  (snd-avg
    (aref *track* 0)
    (truncate (/ *sound-srate* 1000)) ; 1kHz
    1 op-peak)
  50)                                 ; 50 Hz low-pass