シェパードトーン(無限音階)アニメーションの作成
Shepard Tone (Infinite Musical Scale) Animation

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

周波数を求める関数（平均律）

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

In[1]:=

ABCToNumOfHalfTone[ABC_] := Which[ ABC == "C" || ABC == "c", 0, ABC == &q ... ; FreqTemperament[OctABCList_List] := Map[(FreqTemperament[#[[1]], #[[2]]] &), OctABCList] ;

Sine Weighting

In[4]:=

<< Graphics`Graphics` ; n = 10 ; r = 2^(1/12) ; LevLow = 1 ; envelope[cent_, ord_, x_] : ... 0 0 0

[Graphics:HTMLFiles/index_3.gif]

Out[20]=

-Graphics -

Converted by Mathematica  (June 10, 2003)