Doremi (純正律, just intonation)

Takuichi Hirano

純正律の周波数を求める関数

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

In[1]:=

FreqDoReMi[Octave_, ABCTone_] := Module[{r = 2^(1/12)}, FractionTone = Which[ ABCTone == &quo ... quot;B" || ABCTone == "b", 15/8] ; (27.5 * 2^Octave * r^3) * FractionTone // 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  (March 13, 2003)