Periodograma de um som multicanal 

Pares de frequências usados em uma sinalização multifrequencial de tom dual (DTMF).

Crie pares de baixas e altas frequências para cada chave.

In[1]:=

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

Out[1]=

mostre o input completo de Wolfram Languageoculte o input

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

Crie um som de 12 canais, combinando tons de todas as 12 chaves.

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

Visualize o periodograma do som criado.

In[5]:=

X Periodogram[snd, ImageSize -> Medium]

Out[5]=