Doremi (等差数列)

Takuichi Hirano

周波数を求める関数

[Input]
オクターブ
音 (c,c#,d,d#,e,f,f#,g,g#,a,a#,b)

In[1]:=

FreqDoReMi[Octave_, ABCTone_] := Module[{d}, NumTone = Which[ ABCTone == "A" || ABC ... one == "g#", 11] ; d = (27.5 * 2^Octave)/12 ; (27.5 * 2^Octave) + d * NumTone // N ] ;

In[2]:=

dt = 0.5 ; Pulse[t1_, dt_, t_] := UnitStep[t - t1] - UnitStep[t - (t1 + dt)] ; ω[1] = 2 * ... ave[t], {t, 0, dt * 8}, SampleRate -> 44100, SampleDepth -> 16, PlayRange -> {-2, 2}]

[Graphics:HTMLFiles/index_3.gif]

Out[13]=

-Sound -

Converted by Mathematica  (February 24, 2003)