多重チャンネルサウンドのピリオドグラム 

デュアルトーンマルチ周波数信号(DTMF)で使われる周波数のペア．

各キーについて，低周波数と高周波数のペアを生成する．

In[1]:=

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

Out[1]=

完全なWolfram言語入力を表示する入力を隠す

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

12のキーすべてのトーンを組み合せて，2チャンネルサウンドを生成する．

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

生成されたサウンドのピリオドグラムを可視化する．

In[5]:=

X Periodogram[snd, ImageSize -> Medium]

Out[5]=