Synthétisez le son d'une corde vibrante : Nouveautés de Wolfram Language 11

Synthétisez le son d'une corde vibrante

Effectuez la synthèse de Karplus–Strong en ajoutant un court délai d'une valeur élevée de rétroaction à une rafale de bruit. Cela permettra de simuler le son d'une corde vibrante.

In[1]:=

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

Out[1]=

Simulez le raclement d'un accord.

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