envelope_wave

Envelope

2003/8/23 平野拓一（東京工業大学）
2003/8/23 Takuichi Hirano (Tokyo Institute of Technology)

Wave ファイルの読み込み

In[1]:=

Out[1]=

$c:\\hira2\\public_html\\hobby\\edu\\sonic_wave\\envelope\\fig_math_doc$

In[2]:=

In[3]:=

音を出して確認

In[4]:=

$ListPlay[WaveFormPiano, SampleRate -> 22050, PlayRange -> {-2^16, 2^16}]$

[Graphics:HTMLFiles/index_13.gif]

Out[4]=

時間波形を描く

In[5]:=

$ListPlot[WaveFormPiano, ImageSize -> {160, 120}, PlotRange -> {-2^16, 2^16}, PlotJoin ... gt; None, FrameLabel -> {"Time", "Amplitude", "", ""}]$

[Graphics:HTMLFiles/index_16.gif]

Out[5]=

１周期を切り取る

[入力パラメータ]
smprate: wave ファイルのサンプリングレート
freq: 解析する音の周波数（うまく１周期を切り出すために指定）
n1: 切り出しを開始するリスト要素の開始番号

In[6]:=

$smprate = 22050 ; freq = (27.5 * 2^3) * (2^1/12)^3 ; t = 1/freq ; n1 = 20000 ; n = Floor[(t/1) ... rameLabel -> {"Time", "Amplitude", "", ""}] ; n1 = n ;$

[Graphics:HTMLFiles/index_19.gif]

離散フーリエ変換してスペクトルを描く

In[22]:=

[Graphics:HTMLFiles/index_21.gif]

[Graphics:HTMLFiles/index_22.gif]

切り出した１周期をいくつも並べて周期波形を作り、音を聴いてみる

In[29]:=

$freq = 440 * (2^1/12)^3 ; t = 1/freq * 1 ; dur = 1.0 ; n2 = Ceiling[dur/t] ; WaveFormPiano3 = ... {i, 1, n2}]] ; ListPlay[WaveFormPiano3, SampleRate -> 22050, PlayRange -> {-2^16, 2^16}] ;$

[Graphics:HTMLFiles/index_24.gif]

波形を選ぶ

In[35]:=

エンベロープを作る

[Reference]
Roland SC-88 VL, 取扱説明書, p.21

In[36]:=

[Graphics:HTMLFiles/index_27.gif]

[Graphics:HTMLFiles/index_28.gif]

Out[49]=

エンベロープをかける

In[50]:=

In[51]:=

$ListPlay[WaveForm4, SampleRate -> 22050, PlayRange -> {-2^16, 2^16}] ;$

[Graphics:HTMLFiles/index_32.gif]

In[52]:=

$ListPlot[WaveForm4, ImageSize -> {160, 120}, PlotRange -> {-2^16, 2^16}, PlotJoined - ... gt; None, FrameLabel -> {"Time", "Amplitude", "", ""}]$

[Graphics:HTMLFiles/index_34.gif]

Out[52]=

Converted by Mathematica (August 25, 2003)