如何在给定特定deciBel电平的情况下在R中创建波形声音？

Question

I R，多亏了sound库，我们才能创建一个正弦波：

s1 <- Sine(650, 1, 44100, 16, 2)

绘制波形，我们得到如下图像：

plot(s1[1:100])

​

​

波形以-1，+1的间隔移动。如果我播放它，它对应的deciBel是多少？

如何生成具有指定deciBel电平的波音(参数相同)(即波音，频率650 16，持续时间1秒，采样率44100，16位，2声道，55dB)？

提前感谢！

Answer 1

所以我猜你想改变振幅，对吧？没有简单的方法可以按照你想要的方式改变sound中的振幅，因为它是非常基本的包。尝试使用tuneR或seewave包来获得更高级的选项和控制(例如，seewave中的afilter可能是一个很好的解决方案，但不幸的是我不能在R2.14中运行它--不兼容)。

你可以用一种简单的方式来做的是使用normalize来改变音量，但它不适用于sound软件包中的“默认”振幅。例如，如果你产生这个正弦波

 s1 <- .6*Sine(650, 1, 44100, 16, 2)  

您可以通过以下方式将其标准化

 s2 <- normalize(s1) 

您可以听到(并在图中看到) s2变大了。