Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Встроенная обработка сигналов
Энергетический спектр последовательности двухтональных многочастотных (DTMF) сигналов
Визуализация спектрограммы двухтональных сигналов, производимых клавиатурой набора телефонного номера.
In[1]:=
X
Manipulate[ Row[{Grid[ Partition[ MapIndexed[ Button[First[#2] /. {10 -> "*", 11 -> 0, 12 -> "#"}, (EmitSound[ Play[Sin[2 Pi #[[1]] t] + Sin[2 Pi #[[2]] t], {t, 0, .2}]]; signal = Join[signal, Table[Sin[2 Pi #1[[1]] t] + Sin[2 Pi #1[[2]] t], {t, 0, .2, 1/8000.}]]; p = Spectrogram[signal, 256, 128, BartlettWindow, SampleRate -> 8000, AspectRatio -> 1, ImageSize -> {Automatic, 180}]), ImageSize -> {40, 40}] &, Flatten[Outer[List, {697, 770, 852, 941}, {1209, 1336, 1477}], 1]], 3]], Spacer[30], Dynamic[p]}, Alignment -> Top], Initialization :> ( signal = Table[Sin[2 Pi 697 t] + Sin[2 Pi 1209 t], {t, 0., 0.2, 1/8000.}]; p = Spectrogram[signal, 256, 128, BartlettWindow, SampleRate -> 8000, AspectRatio -> 1, ImageSize -> {Automatic, 180}])]
Out[1]=