Wolfram Language™

Den Klang einer schwingenden Saite synthetisieren

Führen Sie eine Karplus–Strong-Synthese durch, indem Sie einem Geräusch eine kurze Verzögerung mit hohem Rückkopplungswert hinzufügen. So wird der Klang einer schwingenden Saite simuliert.

In[1]:=

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

Out[1]=

Simulieren Sie das Klingen eines Akkords.

In[2]:=

chord = {130.81, 164.81, 196, 261.62};

In[3]:=

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]=