2和音 (純正律)

Takuichi Hirano

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

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

<< Miscellaneous`Audio`;
SetDirectory["d:/tmp"]

piano = 
        ReadSoundfile["GrandPiano.wav", 
          PrintHeader -> True];

ListPlay[piano, SampleRate -> 22050, 
      PlayRange -> {-2^15, 2^15}]

Length[piano]

lis = 
        Table[{i, piano[[i + 20000]]}, {i, 1, 
            500}];
ListPlot[
      lis, 
PlotRange -> 
        All, 
PlotJoined -> True]