Periodogramm eines Mehrfachkanal-Tons 

Frequenzpaare in einem Mehrfrequenzwahlverfahren (MFV).

Erstellen Sie für jede Taste Paare niedriger und hoher Frequenzen.

In[1]:=

X freqs = Flatten[Outer[List, {697, 770, 852, 941}, {1209, 1336, 1477}], 1]

Out[1]=

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[2]:=

X Grid[MapThread[ Prepend, {Prepend[ Partition[ MapIndexed[ Button[First[#2] /. {10 -> "*", 11 -> 0, 12 -> "#"}, (EmitSound[ Play[Sin[2 Pi #[[1]] t] + Sin[2 Pi #[[2]] t] + RandomReal[{-0.2, 0.2}], {t, 0, 0.2}]];), ImageSize -> {30, 30}] &, freqs], 3], Style[Quantity[#, "Hz"], Bold] & /@ {1209, 1336, 1477}], Prepend[Style[Quantity[#, "Hz"], Bold] & /@ {697, 770, 852, 941}, ""]}], Dividers -> {{False, True, False}, {False, True, False}}]

Out[2]=

Erzeugen Sie einen 12-Kanalton, der die Töne aller 12 Tasten kombiniert.

In[3]:=

X tones = Total[Sin[2 Pi # t] & /@ #] & /@ freqs

Out[3]=

In[4]:=

X snd = Sound[ SampledSoundList[Table[#, {t, 0, .3, 1/8000.}] & /@ tones, 8000]];

Visualisieren Sie das Periodogramm des erzeugten Klangs.

In[5]:=

X Periodogram[snd, ImageSize -> Medium]

Out[5]=