Audio Function Generator


4873114837Wolfram CDF Playerがインストールされていれば動きます。RSS Readerでは何も見えないかもしれません。

With[{functions = {Sin,
    TriangleWave[#/2/Pi] & -> "Triangle",
    SawtoothWave[#/2/Pi] & -> "Sawtooth",
    SquareWave[#/2/Pi] & -> "Square"}},
 Manipulate[Play[
   volume1 function1[2. Pi frequency1 t] +
    volume2 function2[2. Pi frequency2 t] +
    volume3 function3[2. Pi frequency3 t],
   {t, 0, 3}, SampleRate -> sampleRate],
  {function1, functions},
  {function2, functions},
  {function3, functions},
  {{frequency1, 440}, 20, 8000},
  {{frequency2, 550}, 20, 8000},
  {{frequency3, 660}, 20, 8000},
  {{volume1, 0.5}, 0, 1},
  {{volume2, 0}, 0, 1},
  {{volume3, 0}, 0, 1},
  {{sampleRate, 8000}, 1000, 44100}, ContinuousAction -> False]]

ボリュームは相対評価です。