時系列を使って音声を生成する

規則的にサンプルされたTimeSeriesで正弦波の周波数を制御する．

In[1]:=

n = 50; frequencies = RandomReal[{100, 300}, n]; reg = TimeSeries[frequencies, {0, Automatic, .3}];

In[2]:=

AudioGenerator[{"Sin", reg}]

Out[2]=

不規則にサンプルされたTimeSeriesで正弦波の周波数を制御する．

In[3]:=

times = Accumulate[RandomReal[{0.1, .5}, n]]; irreg = TimeSeries[frequencies, {times}];

In[4]:=

AudioGenerator[{"Sin", irreg}]

Out[4]=

WhiteNoiseProcessを使ってホワイトノイズを生成する．

In[5]:=

sample = RandomFunction[WhiteNoiseProcess[1/3], {88200}]

Out[5]=

サンプルを2秒の長さに再スケールし，音声を生成する．

In[6]:=

AudioNormalize@ AudioGenerator[TimeSeriesRescale[sample, {0, 2, 1/44100}]]

Out[6]=

In[7]:=

AudioNormalize@ AudioGenerator[TimeSeriesRescale[sample, {0, 2, 1/44100}]]; AudioPlot[%]

Out[7]=

FractionalGaussianNoiseProcessを直接使って，異なるタイプのノイズを生成する．

In[8]:=

AudioNormalize@AudioGenerator[FractionalGaussianNoiseProcess[1/3], 2]

Out[8]=

In[9]:=

AudioNormalize@AudioGenerator[FractionalGaussianNoiseProcess[1/3], 2]; AudioPlot[%]

Out[9]=