Periodograma de un sonido multicanal 

Los pares de frecuencias usadas en una señalización de multifrecuencia de doble tono (DTMF, en sus siglas en inglés).

Cree pares de frecuencias altas y bajas para cada clave.

In[1]:=

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

Out[1]=

muestre la entrada completa de Wolfram Languageoculte la entrada

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

Cree un sonido de 12 canales combinando tonos de todas las 12 claves.

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

Visualice el periodograma del sonido creado.

In[5]:=

X Periodogram[snd, ImageSize -> Medium]

Out[5]=