Wolfram 언어

계산 음성

진동하는 현의 소리 합성

돌발적인 노이즈에 피드백 벨류가 높은 짧은 딜레이를 추가하여, KarplusStrong 합성을 수행합니다. 이것은 진동하는 현의 소리 시뮬레이션을 표현합니다.

In[1]:=
Click for copyable input
freq = 60; feedback = 0.99; AudioDelay[AudioGenerator["Pink", .01], 1/freq, feedback, 1, PaddingSize -> 5, Method -> {"LowpassCutoff" -> Quantity[8000, "Hertz"]}]
Out[1]=

코드 연주의 시뮬레이션을 알아봅니다.

In[2]:=
Click for copyable input
chord = {130.81, 164.81, 196, 261.62};
In[3]:=
Click for copyable input
Table[AudioDelay[ AudioPad[AudioGenerator["Pink", .01], {RandomReal[.2], 0}], 1/chord[[i]], feedback, 1, PaddingSize -> 5, Method -> {"LowpassCutoff" -> Quantity[8000, "Hertz"]}], {i, Length[chord]}] // Mean
Out[3]=

관련 예제